Текущий архив: 2005.01.09;
Скачать: CL | DM;

Вниз

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

← →
Yustas   (2004-05-22 15:56) [0]

Уважаемые мастера!
Посмотрите, пожалуйста, почему не работает это событие:


function TForm1.KOLForm1Message(var Msg: tagMSG; var Rslt: Integer): Boolean;
var cd:PCopyDataStruct;
   begin
   result:=false;
   if msg.message=wm_copydata then
       begin
       cd:=PCopyDataStruct(msg.message);
       form1.Form.Caption:=PChar(cd.lpdata);
       result:=true;
       end;
   end;


---

← →
Yustas   (2004-05-22 16:19) [1]

В смысле, я хочу получить только строку от WM_CopyData

---

← →
GuAV ©   (2004-05-22 16:50) [2]

WM_COPYDATA  
wParam = (WPARAM) (HWND) hwnd;            // handle of sending window
lParam = (LPARAM) (PCOPYDATASTRUCT) pcds; // pointer to structure with data
cd:=PCopyDataStruct(msg.lparam);

---

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

Текущий архив: 2005.01.09;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.026 c