Genvejstaster til knapper

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (shift = ([ssAlt, ssCtrl])) then button1click(self);
end;

Er det ikke noget med at man gøre det med en TActionList ?

det kan du godt: indsæt en actionlist og dobbeltklik på den, vælg "new action". kig derefter i 'object inspectoren' og sæt Shortcut til hvad du vil, ex:'Ctrl+A'. dobbeltklik derefter på 'action1' i vinduet "editing Form1.actionlist1" og skriv hvad der sker når du trykker genvejstasten du lige har defineret.. EX:

procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage('Button1Click');
end;

procedure TForm1.Action1Execute(Sender: TObject);
begin
Button1Click;
end;

hmmm, lav det lige om til button1click(self);

fint. kommer du lige med et svar?

SVAR!

tak for hjælpen

np