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?
PseudoDingsbums ist ja nicht so doof wie sein Nickname.

[sniper_w]

Ich wollte nur auf die Nummer sicher gehen..

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

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.