Focus روی Edit هنگام فشردن enter ؟

[ALINAMAZI]

من میخواهم اگر یک edit وقتیکه خالی است کاربر دکمه enter را زد کرسور خارج نشود و یک پیام به کاربر اعلام کند که edit خالی است باید پر کنید سایت را هم با کلمه focus جستجو کرد ولی پاسخ به این سئوال را پیدا نکردم

با تشکر

[Hsimple11]

من میخواهم اگر یک edit وقتیکه خالی است کاربر دکمه enter را زد کرسور خارج نشود و یک پیام به کاربر اعلام کند که edit خالی است باید پر کنید سایت را هم با کلمه focus جستجو کرد ولی پاسخ به این سئوال را پیدا نکردم


در رویداد OnKeyDown مربوط به Edit خود چنین چیزی بنویسید :


procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
IF Key = 13 Then
IF Edit1.Text = '' Then
Begin
ShowMessage('Please Fill The Field...');
Edit1.SetFocus;
End;
end;