Bei Enter eine bestimmte Aktion auslösen

[Strathmore]

Werte Lazarusgemeinde,

wenn ich in einem Formular mit mehreren Widgets, wobei ganz egal sein soll, welcher Widget gerade den Focus hat, die Taste Enter drücke, dann soll eine bestimmte Aktion ausgelöst werden. Wie z.B.

Code: Alles auswählen

procedure TMain.FormKeyPress(Sender: TObject; var Key: char);
begin
  if Key = #13 then
    self.btAnzeigen.Click;
end;

Vielen Dank im Voraus.

[MmVisual]

Main-Formular, Objektinspektor:
KeyPreview := True;
setzen.

Code: Alles auswählen

procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  If Shift = [] Then // Ohne Extra-Tasten
  Begin
    Case Key Of
      VK_RETURN:
        Begin
          ...
        end;
    end;
  end;
end;

[Strathmore]

Super! Schon klappt es!

[Foxi1896]

hey zusammen,

ich weiß nicht ob das jetzt das gleiche ist... Aber ich möchte wenn ich Enter drücke das "procedure TForm1.Start1Click(Sender: TObject); " ausgeführt wird.
was muss da ich da machen?

Hatte jetzt sowas geraten:

Code: Alles auswählen

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
  if Key = #13 then
    self.Start1Click.Click;
end;    
 

Danke schonmal.
Gruß Foxi

[MmVisual]

Code: Alles auswählen

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
 if Key = #13 then
  Start1Click(Nil);
end; 

[Foxi1896]

Cool, danke.
Frage was bedeutet das (Nil)?

[Komoluna]

Start1Click ist eine Procedure mit einem Parameter namens Sender, vom Typ TObject
Nil heißt einfach, dass du statt einer Komponente einfach nur einen Pointer übergibst, der aber kein Ziel besitzt.

wenn du Nil übergibst, darfst du aber in deiner Procedure nicht die Parameter abfrage, oder verändern...(das führt zu RuntimeErrors)

Ich hoffe das war verständlich...

MFG

Komoluna

[corpsman]

Nil = "Not in List"
könnte man mit undefiniert übersetzen. Die Routine erwartet eben einen Parameter "Sender:TObject", wenn du keinen Hast kannst du Nil übergeben. Wenn dein Code in Start1Click den Sender nicht auswertet ist es ohnehin egal was du da rein schreibst.

Sinnvoll wird der Sender wenn du z.B bei mehreren OnkeyDowns von Tedit den Selben Eventhandler nimmst, dann kannst du schreiben :

Code: Alles auswählen

 
Tform1.EditDown(Sender:TObject...);
begin
  if key = #13 then 
   TEdit(sender).text =    TEdit(sender).text +'X';
..
 

und must das nicht n-Mal für alle Edits machen.

[Foxi1896]

ah verstanden =)
danke