seltext in trichedit imitieren

[DrUArn]

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