kein Focus bei TMemo

[p80286]

Hallo zusammen,

ich habe innerhalb eines Pagecontrols, mehrere Memos.
Manchmal wenn ich vom einen Memo zum anderen wechsele, egal ob über ActivePage oder per Mouseclick, spinnt die Anzeige der Memos, d.h. der Cursor wird nicht angezeigt und die Auswahl wird nicht markiert. Tastatureingaben werden allerdings übernommen.
Im on_Change des PageControls setze ich den Focus in das entsprechende Memo, aber das hilft nicht in jedem Falle.
Was habe ich übersehen?
Meist hilft es per Mouseclick die Seiten zu wechseln, aber das ist ja nicht der wahre Jacob.

Grüße
K-H

[himitsu]

OnChange des PageControl wird bescheuerter Weise beim MouseDown ausgelöst (es wird sofort umgeschaltet).
Nn könnte es sein, das das MouseUp (loslassen der Maustaste) den Fokus verschiebt/verändert, nachdem du den Fokus im OnChange auf das Memo gelegt hattest.

Ein Versuch wäre es also Wert erst im OnMouseUp des PageControl den Fokus auf das Memo zu verschieben.

[p80286]

Versuch macht Kluch!

hat leider nicht so richtig funktioniert.

Ich hab einmal versucht über OnEnter die Focusverschiebung anzuzeigen, und demnach funktioniertt genau das nicht. Es sieht so aus als würde der Focus an einem Memo "kleben" bleiben.

Gruß
K-H

[p80286]

So nach etwas längerem herumdoktern hab ich das Problem endlich gelöst.
Das eigentliche Problem war, das das TMemo zwar richtig funktionierte, aber die notwendige visuelle Rückmeldung ausblieb. Cursor wird nicht angezeigt, selecktierter Text wird nicht invers angezeigt.

Hiermit war es dann erledigt:

Delphi-Quellcode:

procedure TForm1.M_InputEnter(Sender: TObject);
begin
  if Handle <> 0 then
        SendMessage(Handle, EM_SETREADONLY, Ord(false), 0);

Gruß
K-H