Cursor wird nicht angezeigt

[user0815]

Ist für eine TGauge Anzeige. Der aktuelle Anfangswert ist einzugeben, ist der Max Wert noch nicht vorhanden so ist dieser zuvor einmal einzugeben.

Delphi-Quellcode:

      Button1.SetFocus;
      Edit1.SetFocus;
      PostMessage(Edit1.Handle, WM_SETFOCUS, 0, 0);

so funktioniert es.

[p80286]

@Günther
du bist der Größte, das hab ich bisher noch nicht gefunden.
Bei mir ist es ein Memo, was angeblich - da es auf die Tastatur reagiert, stimmt es wohl - den Fokus hat aber keinen Cursor und keine Auswahl anzeigt.
Und weil es den Fokus hat, funktioniert onEnter auch nicht (denke ich zumindestens)

Gruß
K-H

[Ron67]

Ich hatte das gleiche Problem.

In meiner recht komplizierten Anwendung (ORC) wurde erst der Fokus auf das Edit-Feld gesetzt, dann von einer anderen Prozedur auf eine Zelle im Grid gesetzt und dann von der dritten Prozedur nochmal auf das Edit-Feld.

Gibt man ein Zeichen ein, erscheint es im Edit-Feld, aber da blinkt kein Cursor (caret).
Und das Programm wußte selber nicht, wo der Fokus war, hat deshalb Folgefehler produziert.

Die doppelte Zuweisung des Fokus auf das gleiche Edit-Feld ist nicht schlimm, aber das hin und her darf nicht sein.