Скачать: CL | DM;

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
И что - компилятор это кушает?

---

← →
Silver Alex ©   (2004-02-19 09:35) [4]

> TUser © (19.02.04 09:31) [3]

возьми да и попробуй, потом нам расскажешь

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c