Registriert seit: 31. Jul 2003
Ort: Dresden
1.386 Beiträge
Delphi 7 Architect
|
Re: Wo muss die WNDProc eingebunden werden?
7. Jun 2004, 21:48
Eine andere Möglichkeit
Delphi-Quellcode:
type
TMyMessage = packed record // statt TMessage
dwMsg,
reserved : Cardinal;
cStr : PChar;
end;
const
MY_MESSAGE = WM_USER + 1974;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure MyMessage( var msg : TMyMessage); message MY_MESSAGE;
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.MyMessage( var msg: TMyMessage);
begin
Showmessage(msg.cStr);
inherited; // optional: ruft den Message DefaultHandler auf und der ruft WndProc
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Text: String;
begin
Text := ' Hello world';
SendMessage( Handle, MY_MESSAGE, 0, Integer(PChar(Text)));
end;
- ciao neo -
Es gibt niemals dumme Fragen, sondern nur dumme Antworten!
|
|
Zitat
|