Форум: "Начинающим";
Текущий архив: 2014.02.23;
Скачать: [xml.tar.bz2];
Внизвопрос про 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2014.02.23;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.002 c