Onclick på speedbutton når der trykkes på enter

Tjaa - Ad omveje kan du vel tilknytte <CrLf> som genvejstast til knappen:

Jeg ville (og det plejer jeg altid at gøre - for det er meget bekvemt) at pakke alle funktionerne ned i en TActionList og så tilknytte en action til knappen/menuen eller hvad jeg nu har.

En TAction har en ShortCut som vi kan sætte til Enter-tasten:

procedure TForm1.FormCreate(Sender: TObject);
begin
  aTest.ShortCut := ShortCut(VK_RETURN,[]); // Tilføjer en shortcut til en TAction
end;

procedure TForm1.aTestExecute(Sender: TObject);
begin
  MessageDlg('Ding', mtInformation, [mbOK], 0)
end;

Sæt din TSpeedButtons Action til aTest og prøv det.

Sæt formens keypreview til true og prøv det her

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
showmessage('hej');
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then Speedbutton1Click(sender);
end;

mange tak for hjælpen - så er der styr på det :D