Hallo ich noch mal. Ich möchte daß das Editfeld den Focus solange hat bis der User was eingibt.
Jetzt will er ein Objekt. Was ich aber eingeb geht nicht.
Code:
procedure KeepFocus(e: TEditNew);
var s: String;
begin
s:= e.Text;
If s = ''
then begin
TextStart;
e.SetFocus;
end;
end;
procedure TForm6.EditExit(Sender: TObject);
begin
KeepFocus((Sender as TEditNew))
end;
Code:
{ Tischeingabefelder }
for i := 0 to length (Edit_L) - 1
do begin
Edit_L[i] := TEditNew.Create(Self);
Edit_L[i].Parent := Self;
Edit_L[i].Text := 'Edit_L'+IntToStr(i);
Edit_L[i].Name :='Edit_L'+IntToStr(i);
Edit_L[i].Left := 184;
Edit_L[i].Height := 24;
Edit_L[i].Width := 45;
Edit_L[i].Font.Style := [fsBold];
Edit_L[i].Font.Name := 'Arial';
Edit_L[i].Font.Height := 15;
Edit_L[i].TabStop := True;
Edit_L[i].TabOrder := i;
Edit_L[i].OnExit := EditExit();
ich weis wirklich nicht wie ich das tun soll. Bei einem normalen Edit Feld wird das onExit Event anders ausgewertet, ich weis aber nicht wie. Hat jemand ne Idee ???
Gruß Udo