direktive "message"

[schöni]

Hallo,

und was bewirkt die Message Direktive:

hier:

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 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