Delphi Überschreib-Funktion von Zeichen im TEdit-Feld

Überschreib-Funktion von Zeichen im TEdit-Feld

Ein Thema von Ginko · begonnen am 24. Okt 2009 · letzter Beitrag vom 25. Okt 2009

Lannes

Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge

Delphi 3 Professional

#20

24. Okt 2009, 22:12

Hallo,

Zitat von Ginko:

Ja sicher habs getestet ohne das was markiert ist steht SelStart immer auf der Endnummer des Strings, also auf Length(Edit1.Text).

dann war Dein Testansatz falsch

Der imho beste Weg das Überschreiben zu realisieren, ist es in OnKeyDown eine entsprechende Selektion vorzunehmen:

Delphi-Quellcode:

			if (Key > 31) and (Edit.SelLength = 0) then

  Edit.SelLength := 1;

MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

Es ist dir nicht erlaubt, neue Themen zu verfassen.

Es ist dir nicht erlaubt, auf Beiträge zu antworten.

Es ist dir nicht erlaubt, Anhänge hochzuladen.

Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.

Smileys sind an.

[IMG] Code ist an.

HTML-Code ist aus.

Refbacks are aus

Gehe zu: