Edit leert sich bei Enter

[Helmi]

Zitat von Volker Z.:

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.

Theoretisch ja - aber das lass ich jetzt mal unter den Tisch fallen (ich sollte da drunter mal wieder aufräumen)

[Volker Z.]

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ß