Danke Lannes,
zu Deiner Anmerkung: nachbauen wäre mir lieber - das sind eben solche Probleme, die einem nicht aus dem Kopf gehen - man möchte wissen, wie's geht!
zu Deinem Beispiel der Verkürzung von sellength um 1: geht, wenn man's in keyup unterbringt
Delphi-Quellcode:
procedure TRichEditTab_ua.keyup(var Key: Word;Shift: TShiftState);
begin
case key of
VK_END: if (shift=[ssshift]) then begin sellength:=SelLength-1;{key:=0;}end;
end;
inherited;
end;
Sieht zwar etwas lustig aus - in keydown wird ja erst die Berechnung incl. Zeilenumbruch ausgeführt - und das sieht man - und danach nehme ich wieder eine Verkürzung um 1 vor. Aber so geht's.
Gerade probiert: In keyup muß man key:=0 auch nicht mehr einfügen.
MfG
Uwe