Дочернее окно и его координаты

← →
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;

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