Markierte(s) Zeichen im Edit über OnKeyPress-Event löschen

[juergen]

Hallo zusammen,
ich habe einiges versucht, bekomme es aber nicht hin.
Ich muss über das OnKeyPress Event bei bestimmten Tasteneingaben die evtl. markierten Zeichen in meinem Edit löschen, aber nur dann, wenn nicht ALLES markiert ist...

Das habe ich schon :

Delphi-Quellcode:

    
    if (key in [#8, #13, #44, #45, #46, #59]) and
       ((length(InputA.Text)) <> (InputA.SelLength)) then
    begin
      ...???...
      InputA.SelStart := Length(Text); //Cursor muss vermutlich an's Ende gesetzt werden?
    end;

Vielen Dank schon mal im Voraus!

[DGL-luke]

öhm..

1. ein <entf> senden
2. Gibt bestimmt ne entsprechende Windows-Message

das waren jetzt die komplizierten:

3. Edit1.SelText := '';

[juergen]

Hallo Lukas,
ja, genauso habe ich auch gedacht: öhm... kann ja net so schwer sein...
wenn ich z.B. deinen 3.) Punkt von dir verwende, wird nichts gelöscht, der Keywert wird einfach hinter den markierten String angefügt...
Habe das ganze auch mit ClearSelection versucht, derselbe Effekt.


Gruss
Jürgen

[juergen]

So, ich hab's.
Es funktioniert nun alles!
Ich sollte (muss!) schon eine gewisse Reihenfolge beachten..
Das war das Problem. Der Code stand an der falchen Stelle.
Sorry!

Gruss Jürgen