SetFocus versagt nach ButtonClick

[mirage228]

Hallo,

Ich habe folgendes Problem.

Ich habe einen Button erstellt, der einen Text in RichEdit einfügt. Das klappt auch soweit. Nun sollte der Cursor danach wieder ins RichEdit.

Ich habe schon SetFocus() mit Show() und Update() etc. versucht, aber es klappt nicht. der Cursor springt nicht zurück in das RichEdit. Bei dem RxRichEdit sprang der zwar mit SendMessage(WM_SETFOCUS) zurück ins Edit, aber das Edit reagierte danach nicht mehr auf Tastatureingaben

Gibt es eine Lösung für mein Problem? Und wenn ja, wie lautet sie?

mfG
mirage228

[s14]

Hallo,
ich kann das gerade nicht nachvollziehen, bie mir funktioniert folgender Code im ButtonClick Ereignis:

Delphi-Quellcode:

  Richedit1.Lines.Add('Text');
  Richedit1.SetFocus;

[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;

[Sharky]

Hai mirage228,

bei mit geht das ohne Probleme:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  RichEdit1.Lines.Add('Dies ist ein Test');
  RichEdit1.SetFocus;
end;

[s14]

@Sharky sag ich doch 8)

Aber kann es an der Delphiversion liegen?
Ich sehe gerade er benutzt Delphi 8

[himitsu]

@s14,
das denk' ich mal nicht, Borland wird doch keine neuen Fehler einbauen

@mirage228
Show() und Update() bringt eh nichts, das macht ja nichts in dieser Richtung.

[mirage228]

Hi,

der Code von euch funktioninert einwandfrei, wenn ich ein Buttton und ein normales RichEdit auf einer Form habe.

Mein Button befindet sich aber auf einem Panel innerhalb eines PageControls. Das Panel wurde mittels "CreateParented" von einem Plugin erstellt, genauso, wie die Buttons auch.
Der Button Handler ist vom Plugin und greift per Interface auf den Editor zu und Fügt den Text bei Cursor-Position ein und ruft danach SetFocus() vom Interface auf, welches das SetFocus vom RxRichEdit kapselt.

Bei meiner Situation funktionieren eure Codes so leider nicht.

Weiss einer bei meiner Situation rat?

mfG
mirage228

P.S.: Für das Projekt verwende ich Delphi 7 Professional.

[himitsu]

Bist du auch sicher, dass SetFocus vom Interface aufgerufen wird?

[mirage228]

Zitat von himitsu:

Bist du auch sicher, dass SetFocus vom Interface aufgerufen wird?

Ja, SetFocus wird aufgerufen.

Hat aber keine Wirkung

EDIT: Wenn ich einen Haltepunkt vor SetFocus setze funktioniert es, sonst nicht?!?!

mfG
mirage228