Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toms,
16. Mär 2008
Hallo, beim RichEdit musst du noch zusätzlich Strg + V abfangen.
procedure TForm1.MemoWndProc(var Message: TMessage);
var
ShiftState: TShiftState;
bPasting: Boolean;
begin
bPasting := False;
if Message.Msg = WM_KEYDOWN then
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toms,
27. Jan 2008
Hallo, wenn du keine neue Komponente erstellen möchtest, dann führst du ein
"Subclassing" durch. Und dann kannst du die entsprechende(n) Nachricht(en) abfangen
und den Text filtern, bevor er effektiv ins Memo eingefügt wird.
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
FOldMemoProc: TWndMethod;