Toolbar – Delphi – Fórum – Programujte.com

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

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.

dík, stejné řešení mi ukázali na builderu