keine Reaktion auf Enter bei einem modalem Formular

[Harvey]

Hallo,

In einem normalen Formular krieg ich es hin, dass bei Eingabe von Enter bei einem Editfeld, der Inhalt vom Editfeld in einem Memo erscheint.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (ord(Key) = 13) then
MmTest.Lines.Append(Edit1.Text);
end;

Bei einem modalem Formular geht das irgendwie nicht. Bei Eingabe von Enter springt das Programm noch nicht mal in die entsprechende KeyPress-Prozedur. Woran liegt das?

Gibt es eine Lösung?

mfg,
Harvey

[Hergen]

Hallo !
In Form1 :

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Form2 := TForm2.Create(Self);
TRY
Form2.ShowModal;
Finally
Form2.Free;
END;
end;


In Form2 :


procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
IF (Key=#13) THEN
Memo1.Lines.Append(Edit1.Text);
end;

Geht wunderbar !

Grüße
Hergen