Форум: "Основная";
Текущий архив: 2004.02.10;
Скачать: [xml.tar.bz2];
Вниз
Дочернее окно и его координаты Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c
