Edit1 Kontrol !!!

[ozcank]

Arkadaşlar bu şekilde kontrol yaptırıyorum fakat setFocus a takılıyor nasıl çözebilirim ?


procedure TForm2.Edit1Exit(Sender: TObject);
begin
If Edit1.Text='1' Then
Begin
Edit3.Text:='Tüm Modüller';
end
else
Begin
ShowMessage('YANLIŞ KULLANICI SEÇTİNİZ');
Edit1.SetFocus;
end;
End;

[ozcank]

Bu kod düzgün çalışıyora birde benim Button2 var orda sadece Close;
yazılı ama Edit1.SetFocus a takılıyor çıkış yapamıyorum.

procedure TForm2.Edit1Exit(Sender: TObject);
begin
If Edit1.Text='1' Then
Begin
Edit3.Text:='Tüm Modüller';
end
else
Begin
ShowMessage('YANLIŞ KULLANICI SEÇTİNİZ');
Edit1.SetFocus;
end;
End;

[ademcicek]

hocam speedbutton kullanırsan o sorundan kurtulabilirsin.