Danke erst mal allen für die Ideen!
Habe für mich selbst noch keine Lösung gefunden - muß wohl noch etwas brüten!
Eigentlich wollte ich ja nur das Verhalten von Trichedit bei shift+ende (Markierung von selstart bis Zeilenende incl. Zeilenumbruch) ändern, so daß der Zeilenumbruch nicht mitmarkiert wird (wie in tmemo)- die Berechnugen dazu sind einfach - aber die Beeinflussung der key-Routinen nicht so.
Auch eine Änderung von key in vk_left und shift in [ssshift,ssctrl] (im trichedit wird dann bis zum Zeilenende OHNE Zeilenumbruch markiert) hilft nicht - dann wird nur Zeichenweise markiert.
Delphi-Quellcode:
procedure keyup(var Key: Word; Shift: TShiftState);override;
procedure TRichEditTab_ua.keydown(var Key: Word; Shift: TShiftState);
begin
case key of
VK_END: if (shift=[ssshift]) then begin shift:=ssshift,ssctrl];key:=VK_RIGHT;end;
end;
inherited;
end;
Vielleicht darf man auf diese weise die Variablen nicht ändern - oder liegt's an shift - keine Variable?
MfG
Uwe