Form des blnkenden Textcursor bei TEdit ändern

[Willie1]

Hallo TP vielen Dank für deine Mühe.

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if CreateCaret(TEdit(Sender).Handle,1,5,12) then ShowCaret(TEdit(Sender).Handle);
end;

Nur wenn ich diesen Code einfüge wird nach dem Drücken einer beliebigen Taste das neue Caret sichtbar.
Ich habe deinen Code mit Copy and Paste eingefügt.

Gruß Willie

[turboPASCAL]

Warscheinlich hast du beim ausprobieren des obigen Codes vergessen im OI Create und Destroy einzustellen.

Noch mal ein Versuch mit einer anderen Herangehensweise.
Hier wird einfach die TEdit-Classe durch überschreiben erweitert.

[Willie1]

Hallo TP,
RESPEKT: beide Rezepze klappen gut!!! Ich hatte gestern Abend etwas übersehen. Das ist genau, was ich wollte. Es ermöglicht es einem sehbehinderten Anwender, Daten ein zu geben.
Deine Rezepte zeigen, wie einfallslos die Programmierer der Bank-Software sind. Obwohl der Bildschirm groß genug ist, ist die Schrift winzig, weder wird das fokussierte Feld eingefärbt noch das Caret vergrüßert. Auch für User mit gesunden Augen ist das hilfreich. Die Datumseingabe ist aus dem letzten Jahrhundert.
Der Rechner bei der Post wurde mal hochgefahren, da las ich Windows XP. Die Chefin der Postfiliale hat immerhin zugesagt, mein Anliegen weiter zu geben.
Auf meinem Coputer zu Hause komme ich mit einer Lupensoftware ganz gut zurecht. Aber Internet-Banking mache ich nicht.

Gruß Willie.