edit text

[kachwahed]

السلام عليكم
طريقة أخرى...
اضبط KeyPreview للـ TForm على True، ثم في OnKeyDown أكتب:

PHP كود :

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    SelectNext(ActiveControl, True, True);
end; 


مفيدة حالة وجود الكثير من الـ Controls.