Recimo:
Code:
type
TForm2 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure Edit1Exit(Sender: TObject);
private
FCanLeaveControl: TObject;
public
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Edit1Exit(Sender: TObject);
begin
if Sender <> FCanLeaveControl then
(Sender as TEdit).SEtFocus;
end;
procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key in [VK_RETURN, VK_TAB] then
begin
FCanLeaveControl := Sender;
if Key = VK_RETURN then
SelectNext(ActiveControl, TRUE, TRUE);
end
else
FCanLeaveControl := nil;
end;