SetFocus versagt nach ButtonClick

[himitsu]

versuch mal
{Form1.}ActiveControl := RichEdit1; Aber wenn auch die Cursorposition im Editfeld wieder angesprungen werden soll, so mußt du diese vorher auch noch speichern.
z.B.:

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
  Var P: Integer;

  Begin
    P := RichEdit1.SelStart;

    ...

    ActiveControl := RichEdit1;
    RichEdit1.SelStart := P;
  End;