[es] - tAction i tActionList, kako ih složiti?

franjo_tahi
Franjo Tahi
Zagreb

Član broj: 34712
Poruke: 399
*.adsl.net.t-com.hr.

+1 Profil

tAction i tActionList, kako ih složiti?

^{08.07.2009. u 22:28 - pre 180 meseci}

Kreiram svoju kontrolu koja bi trebala raditi sa ShortCut-ovima. Naime, ima do 8 button-a, a za svaki se može reči koji je ShortCut.

Najlogičnije mi je bilo upotrijebiti tAction i dodjeliti mu .OnExecute = buttonOnClick;

U glavnom, ne radi mi. Pokušao sam napraviti jedan programčić s 2 gumba. Ako postavim na formu kontrolu: tActionList i njoj dodam Action, sve je ok, radi.
Ako u runtime keriram tActionList i tAction - ne radi...

ovo je kod programčića koji bi trebao nakon pritiska na btn1, na svaki F3 ispisati "btn 2":

Code:

var
  Form1: TForm1;
  a: TAction;
  al: TActionList;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   al := TActionList.Create(nil);
   al.State := asNormal;
   a := TAction.Create(al);
   a.ShortCut := TextToShortCut('F3');
   a.Visible := true;
   a.Enabled := true;
   a.OnExecute := Button2Click;
   a.ActionList := al;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   ShowMessage('btn 2');
end;

U čemu griješim?

Odgovor na temu

franjo_tahi
Franjo Tahi
Zagreb

Član broj: 34712
Poruke: 399
*.adsl.net.t-com.hr.

+1 Profil

Re: tAction i tActionList, kako ih složiti?

^{08.07.2009. u 22:31 - pre 180 meseci}

E, jesam smotan....
neka ostane, možda kome zatreba. Greška je u jednom retku:

Code:

al := TActionList.Create(Nil);

treba:

Code:

al := TActionList.Create(Form1);

Odgovor na temu