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

Вниз

Дочернее окно и его координаты   Найти похожие ветки 

← →
olookin ©   (2004-01-29 17:10) [0]

Не могу назначить нужную координату дочернего окна. Последовательность действия такова:
1. Открываю окно, делаю его дочерним относительно главной формы

SetParented(FileWndCol[curcol],EDIPbase);
//через эту процедуру
procedure SetParented(ChildWnd,ParentWnd: TForm);
begin
SetWindowLong(ChildWnd.Handle,GWL_HINSTANCE,ParentWnd.Handle);
SetParent(ChildWnd.Handle,ParentWnd.Handle);
end;

Затем назначаю ей координаты
FileWndCol[curcol].SetCoordinates(curfile);
//через эту процедуру
procedure TFileWindowCol.SetCoordinates(Index: integer);
begin
//это для примера - в результате форма появляется в самом верху главной формы
Top:=0;
end;

И показываю это окно - оно там где надо
FileWndCol[curcol].Show;

Затем закрываю окно. Открываю его снова - при этом для этого окна вызываются SetParented и SetCoordinates. И затем я снова назначаю Top:=0. Но окно оказывается ниже, чем надо. Вот в этом то и вопрос.

Заранее спасибо.

---

← →
Игорь Шевченко ©   (2004-01-29 17:30) [1]


type
TfChild = class(TForm)
protected
procedure CreateParams (var Params : TCreateParams); override;
....
end;

procedure Tf.CreateParams (var Params : TCreateParams);
begin
inherited;
Params.Style := Params.Style or WS_CHILD;
end;



---

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

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

Наверх

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