Es liegt eindeutig am Timer. Wenn ich seine Eigenschaft Activ auf False setze, habe ich zwar keine Zeit, aber dafür nicht dieses Coursersprung-Problem. Habe mal ein Stück Code angehangen, vielleicht sieht ja wer eine Lösung:
Delphi-Quellcode:
procedure Tf_hauptprogramm.FormPaint(Sender: TObject);
begin
if f_admin.Showing = true then else e_benutzernummer.SetFocus;
if fileexists('logo.bmp') then Image1.Picture.LoadFromFile('logo.bmp');
end;
Das ist das "normale" Setzen des Fokus.
Delphi-Quellcode:
e_benutzernummer.Text := '';
if f_admin.Showing then else e_benutzernummer.SetFocus;
Das ist das Ende der Anmeldeprocedure, wo der Inhalt (ne Benutzernummer) in eine
MySQL-Liste eingepflegt wird.
So hier noch der Timer:
Delphi-Quellcode:
procedure Tf_hauptprogramm.Timer1Timer(Sender: TObject);
begin
zeit.Caption:= TimeToStr(GetTime);
end;
Das war es eigentlich schon...soll ich vielleicht das SetFocus-Event nicht auf Paint sondern woanders hinsetzten?
[edit=SirThornberry]Code-Tags durch Delphi-Tags ersetzt - Mfg, SirThornberry[/edit]