Hallo,
Zitat:
Theoretisch ja - aber das lass ich jetzt mal unter den Tisch fallen (ich sollte da drunter mal wieder aufräumen)
Bevor da dann nix mehr gefunden wird: Wenn Dir das Standardverhalten einer TEdit (nur die erste Zeile eines Mehrzeilers einfügen) genügt, dann hilft Dir vielleicht folgendes weiter:
Delphi-Quellcode:
procedure TAlignLabeledButtonEdit.WMPaste(var Message: TWMPaste);
var
s : string;
p, q : PChar;
begin
If not FEditorEnabled or ReadOnly then
exit;
s := Clipboard.AsText;
p := Pointer (s);
q := p;
while not (q^ in [#0, #10, #13]) do
Inc (q);
SetString (s, p, q - p);
Clipboard.AsText := s;
inherited;
end;
Gruß