Forum: Sonstige Fragen zu Delphi
Delphi
by Volker Z.,
13. Jan 2013
Hallo,
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:
procedure TAlignLabeledButtonEdit.WMPaste(var Message: TWMPaste);
var
s : string;
p, q : PChar;
Forum: Sonstige Fragen zu Delphi
Delphi
by Volker Z.,
13. Jan 2013
Hallo,
ist gerade aufgefallen: Deine Komponente lässt das Pasten mehrzeiligen Texts zu. Wenn Du ein Return abfängst, dann vermute ich mal, dass Du an Deiner WMPaste noch ein bisserl schleifen musst.
Gruss
Forum: Sonstige Fragen zu Delphi
Delphi
by Volker Z.,
13. Jan 2013
Hallo,
vielleich hilft Dir folgendes:
procedure TAlignLabeledButtonEdit.KeyPress(var Key: Char);
begin
inherited KeyPress(Key);
if Key = #13 then
Key := #0
end;