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

вопрос про WM_WINDOWPOSCHANGING   Найти похожие ветки 

← →
brother ©   (2013-04-27 07:05) [0]

procedure TForm.WndProc(var Message: TMessage);
var
 wp: PWindowPos;
begin
 case Message.Msg of
...
   WM_WINDOWPOSCHANGING: begin
     wp := PWindowPos(Pointer(message.LParam));

     Form1.Memo1.Lines.Clear;
     Form1.Memo1.Lines.Add("x" + IntToStr(wp.x));
     Form1.Memo1.Lines.Add("y" + IntToStr(wp.y));
     Form1.Memo1.Lines.Add("cx" + IntToStr(wp.cx));
     Form1.Memo1.Lines.Add("cy" + IntToStr(wp.cy));
   end;
...
 end;

 inherited WndProc(Message);
end;

в memo1 все значения всегджа равны 0, почему?

---

← →
clickmaker ©   (2013-04-27 11:12) [1]

TForm.WndProc ?

---

← →
brother ©   (2013-04-27 11:16) [2]

да. form1 Для отладки...

---

← →
brother ©   (2013-04-27 11:40) [3]

> TForm.WndProc ?

TFormExt

---

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

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



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