AW: Edit leert sich bei Enter
Hallo,
Zitat:
Delphi-Quellcode:
Gruß
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; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:34 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz