Einzelnen Beitrag anzeigen

Volker Z.

Registriert seit: 3. Dez 2012
Ort: Augsburg, Bayern, Süddeutschland
419 Beiträge
 
Delphi XE4 Ultimate
 
#11

AW: Edit leert sich bei Enter

  Alt 13. Jan 2013, 21:03
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ß
Volker Zeller
  Mit Zitat antworten Zitat