WM_PASTE Message abfangen

[Ally]

Ich habe in Delphi eine Komponente geschrieben in der die Message WM_PASTE abgefangen und der Clipboard-Inhalt nur dann in das Textfeld geschrieben wird, wenn er den Vorgaben entspricht.
In Lazarus wird der Clipboard-Inhalt allerdings zuerst in das Edit-Feld geschrieben und erst dann wird die WMPaste-Procedure abgearbeitet.
Das ganze macht dann natürlich keinen Sinn mehr, der Text steht ja schon im Textfeld.
Wie kann ich unter Lazarus das gleiche Ergebnis wie unter Delphi erreichen?

Delphi Quelltext:

Code: Alles auswählen

type
  TXedit = class(TCustomEdit)
  private
    { Private-Deklarationen }
    procedure WMPaste(var Message: TWMPaste); message WM_PASTE;
.
.
.
procedure TXedit.WMPaste(var Message: TWMPaste);
begin
  if not Clipboard.HasFormat(CF_TEXT) then Exit;
  if Clipboard.AsText <> Vorgabe then Exit;
  inherited;
end;

Lazarus Quelltext:

Code: Alles auswählen

type
  TXEdit = class(TCustomEdit)
  private
    { Private-Deklarationen }
    procedure LMPasteFromClip(var Message: TLMessage); message LM_PASTE;
.
.
.
procedure TNumedit.LMPasteFromClip(var Message: TLMessage);
begin
begin
  if not Clipboard.HasFormat(CF_TEXT) then Exit;
  if Clipboard.AsText <> Vorgabe then Exit;
  inherited;
end;

[theo]

Keine Ahnung. Muss man das denn können?
Das stell ich mir ziemlich übel vor, wenn ich als User was in ein Textfeld pasten will, und dann passiert nix...

[pluto]

@Ally
Ich glaube das macht das Edit oder sonstige Eingabe Komponenten Automatisch. Das sie nur reinen Text zu lassen und keine Grafiken oder ähnliches. Darauf wolltest du doch hinaus oder ?
Was für vorgaben hast du denn ? Sonst könntest du versuchen das onKeyDown Event abzufangen. Das müsste eigentlich gesendet werden, bevor Strg+V beim Edit landet und dort kannst du dann key auf #0 bzw 0 setzten.

Code: Alles auswählen

if Clipboard.AsText <> Vorgabe then Exit;

Ich denke mal das war als "Beispiel" gedacht oder ? Weil so in dieser Form würde es keinen Sinn ergeben.

EDIT: Habe übersehen das du schon von einem TEdit ableitetest, also könntest du auch einfach die Methode keydown überschreiben.

[Ally]

Hallo theo hallo Michael,

mein Editfeld darf nur Zahlen akzeptieren. Das wird für die Eingabe über die Tastatur mit KeyPress, Change usw. realisiert. Über WMPaste fange ich Eingaben ab die aus der Zwischenablage, mit z.B. rechte Maustaste-Einfügen oder Strg+V, eingefügt werden sollen.
Über mein spezielles Problem hinaus, stellt sich doch aber die Frage, warum Lazarus die Message zuerst ausführt und dann behandelt?

[pluto]

Es gibt doch die SpinEdit Komponenten, die lässt nur zahlen zu. Schau mal wie die das Einfügen gemacht haben(es könnte auch sein, dass diese Komponente von Toolkit übernommen wird)

[theo]

Probier mal sowas, das geht z.B. auf GTK2

Code: Alles auswählen

procedure TForm1.Edit1Change(Sender: TObject);
var och: TNotifyEvent;
n:integer;
begin
  och:=Edit1.OnChange;
  Edit1.OnChange:=Nil;
  if (not (Trim(Edit1.Text) ='')) and (not TryStrToInt(Edit1.text,n)) then
    Edit1.Text:=fEditText else  fEditText:=Edit1.Text;
  Edit1.OnChange:=och;
end;
 
procedure TForm1.Edit1Enter(Sender: TObject);
begin
  fEditText:=Edit1.Text;
end;

[Ally]

Hallo Pluto,

vielen Dank für deinen Tip, aber bei SpinEdit wird das Einfügen über Strg+V völlig blockiert und über rechte Maustaste-Einfügen wird auch "Blutwurst" eingefügt.

[Socke]

Hallo Pluto,

vielen Dank für deinen Tip, aber bei SpinEdit wird das Einfügen über Strg+V völlig blockiert und über rechte Maustaste-Einfügen wird auch "Blutwurst" eingefügt.

Vielleicht bist du ja so motivierst und hackst die LCL, auf dass wir bald alle ein OnPaste Event haben
Aber es fehlt echt an einer brauchbaren Möglichkeit auf so etwas zu reagieren; das mit dem Spin-Edit finde ich auch ... weil man dann immer überprüfen muss, ob das wirklich ein Integer-Wert und keine Blutwurst ist.

[Ally]

Hallo theo,

danke für den Code. Einen ähnlichen Ansatz hatte ich auch mal verfolgt. Ich habe dann aber einfach den Cursor nicht in den Griff bekommen. Bei jeder unzulässigen Eingabe oder Einfügung springt der nämlich an den Anfang. Mein Eingabefeld prüft auf Dezimalstellen, Minuswerte und führt eine Wertbegrenzung durch. Dabei ist es mir letztlich nicht gelungen alle Eventualitäten abzuklopfen und den Cursor bei jeder Falscheingabe wieder richtig zu positionieren.
Die Lösung die ich jetztt habe (unter Delphi) funzt perfekt und lässt keine Fehleingabenn zu. Das Ganze funktioniert ja auch unter Lazarus, bis auf die Sache mit dem Einfügen.
Vielleicht liest ja ein Lazarus-Entwickler mit und schaut sich das Message-Problem mal an.

[theo]

Vielleicht liest ja ein Lazarus-Entwickler mit und schaut sich das Message-Problem mal an.

Du kannst die Chancen dafür erheblich verbessern, wenn du einen Eintrag im Bugtracker machst:
http://bugs.freepascal.org/" onclick="window.open(this.href);return false;