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

Вниз

Как показывать дочернее окно в глобальных координатах ?   Найти похожие ветки 

← →
AFROLOV   (2002-03-20 13:02) [0]

Проблема в следующем: если форме родителя не изменять, то она отображается там где нужно, если ей поменять родителя то она появляется совсем в другом месте.
Вопрос такой: Как показывать дочернее окно в глобальных координатах ?
procedure TListBoxForm.ShowForm(NP:HWND);
var
pLeft, pTop, pWidth, pHeight:Cardinal;
OldParent:HWND;
begin
if (VarIsEmpty(MainForm.MSWord)=false) then
begin
MainForm.MSWord.ActiveWindow.GetPoint(pLeft, pTop, pWidth, pHeight, MainForm.MSWord.Selection.Range);
end;
ListBox1.Items.Add("Left:="+IntToStr(pleft));
ListBox1.Items.Add("Top:="+IntToStr(pTop));
ListBox1.Items.Add("Parent:="+IntToHex(GetParent(Handle),8));
OldParent:=Windows.SetParent(Handle,NP);//без зтой строчки окно рисуется там где надо.
ListBoxForm.Top:=pTop+pHeight;
ListBoxForm.Left:=pLeft;
Visible:=true;
end;

---

← →
VuDZ ©   (2002-03-20 13:07) [1]

может ClientToScreen, ScreenToClient?

---

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

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

Наверх

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