Текущий архив: 2004.03.03;
Скачать: 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 вся ветка
Текущий архив: 2004.03.03;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.017 c
