Edit leert sich bei Enter

[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ß