direktive "message"

[Pseudemys Nelsoni]

hi,

wie funktioniert das ganze mit der "message" direktive? kann ich damit nachrichten prozefuren überschreiben die an das fenster gesendet werden?

ich hab mal folgendes versucht:

Delphi-Quellcode:

procedure WMSetFocus(var msg: TWMSetFocus); message WM_SETFOCUS;

...

procedure TForm2.WMSetFocus(var msg: TWMSetFocus);
begin
  ShowMessage('hi');
end;

es wird beim entern in mein richedit aber keine message angezeigt :(

[sniper_w]

Zitat:

wie funktioniert das ganze mit der "message" direktive? kann ich damit nachrichten prozefuren überschreiben die an das fenster gesendet werden?

Ja, das kannst du. In deinem Beispiel wird die Nachrich für eine Instance des Types "TForm2" behandelt und keine Instance von "TEdit".

[Pseudemys Nelsoni]

hm,

wie kann ich denn ein setfocus für ein richedit abfangen? (mit "message")

[Robert_G]

Natürlich indem du den Handler in einem Nachfahren von TRichEdit implementierst. ;)

Delphi-Quellcode:

type TMiep = class(TRichEdit)
  procedure WMSetFocus(var msg: TWMSetFocus); message WM_SETFOCUS;
end;

[sniper_w]

Delphi-Quellcode:

type
  TmyRichEdit = class(TRichEdit)
   procedure WMSetFocus(var msg: TWMSetFocus); message WM_SETFOCUS;
  end;

  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    REdit : TmyRichEdit;
  end;

var
  Form1: TForm1;
  done : boolean = false;

implementation

{$R *.dfm}

procedure TmyRichEdit.WMSetFocus(var msg: TWMSetFocus);
begin
 inherited;

 if not done then
        begin
         Application.MessageBox('Und jetzt ist die schon ausgeführt.','FOCUS MESSAGE');
         done := true;// damit nur einmal diese Meldung kommt
        end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 REdit := TmyRichEdit.Create(self);

 with REdit do
 begin
  Parent := Self;
  Align := alLeft;
  Visible := true;
 end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 REdit.Free;
end;

Es sollte genug selbserklärend sein.

[Robert_G]

Was war an meiner Erklärung weniger verständlich? :gruebel:
PseudoDingsbums ist ja nicht so doof wie sein Nickname. :zwinker: :mrgreen:

[sniper_w]

Ich wollte nur auf die Nummer sicher gehen.. :wink: :???:

[Pseudemys Nelsoni]

moin,

danke sniper/robert ;) Mit anderen Worten, ich muss eine klasse von TRichEdit ableiten, damits klappt, das weusst ich nicht ;)

Zitat:

PseudoDingsbums ist ja nicht so doof wie sein Nickname.

das ist aber nicht nett :!: *g*

[schöni]

Hallo,

und was bewirkt die Message Direktive:

hier:

Delphi-Quellcode:

procedure WMxxxxxxx(var Msg: TWMxxxxxxxx); [B]Message WM_xxxxxxxxx;[/B]

[himitsu]

Wird eine Message mit dieser ID an das Handle des entsprechenden TWinControl gesendet, dann wird diese Methode aufgerufen.
Aber zuerst kommt die Message bei

Delphi-Quellcode:

procedure WndProc(var Message: TMessage); override;

vorbei.

[WM_CLOSE]

Im grunde ist es ein zusätzlicher Eintrag in der WndProc des jeweiligen Fensters.

[Neutral General]

Hallo,

Wenn es nur um 1 einzelnes Richedit oder so geht, dann ginge auch folgendes:

Delphi-Quellcode:

TForm1 = class(TForm)
  Richedit1: TRichedit;
private
  FOldWndProc: TWndMethod;
  procedure NewWndProc(var Msg: TMessage);
public
  { Public-Deklarationen }
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  FOldWndProc := Richedit1.WndProc;
  Richedit1.WndProc := NewWndProc;
end;

procedure TForm1.NewWndProc(var Msg: TMessage);
begin
  FOldWndProc(Msg); // => "inherited"
  if Msg.Msg = WM_SETFOCUS then
    ShowMessage('SetFocus!');
end;

(Habs jetzt ausm Kopf getippt. Hoffe mal dass ich keine Fehler drin hab)

Gruß
Neutral General