Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by der_kumpel,
16. Mär 2008
Whoa, einmalig! Danke.
Noch eine kleine, evtl. unwichtige Frage, nur um sicherzugehen: Das Filtern dann am besten so?
{...}
if bPasting then
begin
Message.Result := 1;
//Filtern
end
else
{...}Danke nochmal. :thumb:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by der_kumpel,
16. Mär 2008
Ich muss hier nochmal kurz stören, und zwar wollte ich eben versuchen, die Methode oben auf ein RichEdit anzuwenden, leider ohne Erfolg.
Ich hab eigentlich nur Folgendes geändert:
procedure TForm1.FormCreate(Sender: TObject);
begin
FOldMemoProc := RichEdit1.WindowProc; // da ich mal stark annehme, dass der Variablenname keine Rolle spielt,
RichEdit1.WindowProc := MemoWndProc; //...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by der_kumpel,
27. Jan 2008
Okay, danke, so hab ichs jetzt erstmal hinbekommen, allerdings hatte ich ursprünglich vor, nur den Text zu filtern, der per STRG+V eingefügt wird (und das lässt sich ja im OnChange nicht mehr feststellen :lol:).Wie mach ich das genau?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by der_kumpel,
26. Jan 2008
Moin,
wie kann man verhindern, dass per STRG+V der Inhalt der Zwischenablage ins Memo eingefügt wird?
Ich würde dies gerne selber im OnKeyDown Event machen, da ich den Text zuvor noch überprüfen möchte.
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin