Message

← →
Kair © (2004-02-19 08:05) [0]

procedure wmXXX(var Msg: TMessage); message wm_XXX;

Можно ли так (или что-то типа этого) сделать для, например, TPanel, TImage?

← →
KSergey © (2004-02-19 08:18) [1]

Для их наследников - можно.

← →
Silver Alex © (2004-02-19 09:27) [2]

можно и без наследников

const
wm_XXX=WM_USER+150;
...
mPanel: TPanel;
private
oldWndProc: TWndMethod;
procedure newWNDProc(var Msg: TMessage);//: TWndMethod;
public
end;

procedure TForm1.newWNDProc(var Msg: TMessage);
begin
oldWndProc(msg) ;
if msg.Msg=wm_XXX then
mPanel.Caption:= string( msg.LParam);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
oldWndProc:=mPanel.WindowProc;
mPanel.WindowProc:=newWNDProc;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage( mPanel.Handle,wm_XXX,0,Integer(Edit1.Text));
end;

← →
TUser © (2004-02-19 09:31) [3]

2 Silver Alex
И что - компилятор это кушает?

Message Найти похожие ветки