Edit-Feld kriegt den Focus nicht

[mm1256]

Hallo,

ich mache das gerne im "OnPaint", welches immer zuletzt aufgerufen wird. Dazu dann eine Hilfsvariable, und alles ich chic

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
  private
    { Private-Deklarationen }
    FFirstPaint: boolean;
  public
    { Public-Deklarationen }
  end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  if FFirstPaint then begin
    FFirstPaint := false;
    . . . Halleluja
  end;
end;