كيف يمكنني منع المؤشر من الخروج من tedit

[faudel24000]

السلام عليكم
كيف يمنع المؤشر من خروج من خانة tedit
وذلك لسبب القيمة المدخلة
يمكنه الخروج في حالة أن القيمة المدخلة تخضع لبعض الشروط
وشكرا

[faudel24000]

لقد وجدت الكود المناسب

كود :

Edit1.Setfocus;

[shagrouni]

السلام عليكم

في الحدث OnExit يتم التحقق ومنع المؤشر من الخروج منه

كود :

procedure TForm1.Edit1Exit(Sender: TObject); begin if Trim(Edit1.Text) = '' then Edit1.SetFocus; end;