zdravím, v toolbaru mám několik toolButtonů s iconama. Potřeboval bych vědět jak nechat zašednout všechny ty tlačítka najednou(abych nemusel nastavovat vlastnost enabled u každého zvlášť), Nastavení enabled na false toolbaru nezpůsobí zašednutí tlačítek. děkuji
Fórum › Delphi
Toolbar
![](img/forum_vlakno_help_vyreseno.png)
zkoušel jsem jednotlivý tlačítka vypínat ve smyčce přes actionlist (kromně tlačítek v toolbaru vypínám stejny položky v menu) podle vlastnosti TAG(tag získám: actionlist1.Actions[i].Tag;), ale tímto způsobem již nedokážu nastavit vlastnost enabled. Jakým způsobem můžu takto ve smyčce kromně vlastnosti tag přistupovat i k vlastnosti enabled? :smile10:
OK, takze mas ToolBar na nom tlacidla. Kazde tlacidlo ma priradenu akciu v action liste - je to lepsie ako definovat priamo na tlacidle, pretoze pri zmene komponentu je praktickejsie potom setovat existujuce akcie - resp. ich volat. Takze kazde tlacidlo ma vlastnu akciu - ta ma definovany ImageIndex, caption, execute apod.
Potom staci prejst vsetky akcie tlacidiel a disablovat ich. Na tlacidlo naviazeme tuto funkcnost...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, ActnList, ComCtrls, ToolWin, StdCtrls;
type
TForm1 = class(TForm)
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ActionList1: TActionList;
Action1: TAction;
Action2: TAction;
Action3: TAction;
Action4: TAction;
ImageList1: TImageList;
Button1: TButton;
procedure Action1Execute(Sender: TObject);
procedure Action2Execute(Sender: TObject);
procedure Action3Execute(Sender: TObject);
procedure Action4Execute(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Action1Execute(Sender: TObject);
begin
//
end;
procedure TForm1.Action2Execute(Sender: TObject);
begin
//
end;
procedure TForm1.Action3Execute(Sender: TObject);
begin
//
end;
procedure TForm1.Action4Execute(Sender: TObject);
begin
//
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Index: Integer;
begin
for Index := 0 to Pred(ToolBar1.ButtonCount) do
TAction(ToolBar1.Buttons[Index].Action).Enabled := False;
end;
end.
![](img/forum_nove_psp_new.png)
Přidej příspěvek
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
![](/img/smile/1.gif)
![](/img/smile/2.gif)
![](/img/smile/3.gif)
![](/img/smile/4.gif)
![](/img/smile/5.gif)
![](/img/smile/6.gif)
![](/img/smile/7.gif)
![](/img/smile/8.gif)
![](/img/smile/9.gif)
![](/img/smile/10.gif)
![](/img/smile/11.gif)
![](/img/smile/12.gif)
![](/img/smile/13.gif)
![](/img/smile/14.gif)
![](/img/smile/15.gif)
![](/img/smile/16.gif)
![](/img/smile/17.gif)
![](/img/smile/18.gif)
![](/img/smile/19.gif)
![](/img/smile/20.gif)
![](/img/smile/21.gif)
![](/img/smile/22.gif)
![](/img/smile/23.gif)
![](/img/smile/24.gif)
![](/img/smile/25.gif)
![](/img/smile/26.gif)
![](/img/smile/27.gif)
![](/img/smile/28.gif)
![](/img/smile/29.gif)
![](/img/smile/30.gif)
![](/img/smile/31.gif)
![](/img/smile/32.gif)
Uživatelé prohlížející si toto vlákno
Podobná vlákna
Toolbar a scrollování — založil thomasdv
Toolbar a vlastni ikony-WinApi — založil Martin Kluska
Načtení icon (ico 13x13) a použití toolbar? — založil oxidián