Cursor in Editfeld setzen

[marabu]

Hallo,

du hast Recht. Es gibt Probleme, wenn man einfach nur die Fokusierung auf Windows-Ebene durchführt. Da kein Ereignis nach dem Seitenwechsel ausgelöst wird, führe ich eine Custom Message ein:

Delphi-Quellcode:

const
  UM_SETFOCUS = WM_USER;

type
  TDemoForm = class(TForm)
    TabbedNotebook: TTabbedNotebook;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure TabbedNotebookChange(Sender: TObject; NewTab: Integer;
      var AllowChange: Boolean);
  private
    procedure UMSetFocus(var Msg: TMessage); message UM_SETFOCUS;
  end;

var
  DemoForm: TDemoForm;

implementation

{$R *.dfm}

procedure TDemoForm.UMSetFocus(var Msg: TMessage);
begin
  TWinControl(Msg.LParam).SetFocus;
end;

procedure TDemoForm.TabbedNotebookChange(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
  case NewTab of
    0: PostMessage(Handle, UM_SETFOCUS, 0, Integer(Edit1));
    1: PostMessage(Handle, UM_SETFOCUS, 0, Integer(Edit3));
  end;
end;

Freundliche Grüße

[naudoc]

Hi,

funktionieren tut es jetzt :hello: :hello: :thumb: :thumb:

Aber warum genau... :wiejetzt: :gruebel: ?? Kannst du mir das knapp und verständlich erklären?

[marabu]

Hallo,

wir können ein Fenster (Edit1 o.ä.) erst fokusieren, wenn es auch sichtbar ist. Da wir kein Ereignis haben, welches NACH einem Seitenwechsel im TabbedNoteBook ausgelöst wird, müssten wir eigentlich öfter mal nachschauen, ob es inzwischen soweit ist.

Ich habe mich von folgender Überlegung leiten lassen: Die Ausführung des Codes für das Ereignis OnChange() ist Teil des eigentlichen Seitenwechsels und das Programm bekommt die Kontrolle erst zurück, wenn der Seitenwechsel vollständig abgeschlossen ist. Wenn ich eine Nachricht in die Warteschlange einstelle, so wird sie also erst ausgeführt, wenn das fragliche Edit-Fenster bereits sichtbar ist. Meine Nachricht wird automatisch zum richtigen Zeitpunkt ausgeführt und kann die VCL-Methode SetFocus() verwenden, so dass Nebenwirkungen ausgeschlossen sind.

Freundliche Grüße

[naudoc]

Das Prinzip verstehe ich jetzt, nur den Code nicht, naja, hauptsache, ich versteh die Theorie, für die Praxis müsste ich zu viele Befehle lernen... :coder2:

;)

Danke!

Max