Form des blnkenden Textcursor bei TEdit ändern

Thema durchsuchen

Ansicht

Themen-Optionen

Form des blnkenden Textcursor bei TEdit ändern

Ein Thema von Willie1 · begonnen am 5. Feb 2014 · letzter Beitrag vom 8. Feb 2014

Vorheriger Beitrag

Nächster Beitrag

Willie1

Registriert seit: 28. Mai 2008
742 Beiträge

Delphi 10.1 Berlin Starter

AW: Form des blnkenden Textcursor bei TEdit ändern

7. Feb 2014, 18:45

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

markieren

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