Fensterwechsel unterbinden / Hintergrundproceduren

[RobSteward]

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]