Текущий архив: 2007.08.26;
Скачать: CL | DM;
Вниз
Как заставить работать TileWindows? Найти похожие ветки
← →
tytus © (2007-08-06 17:05) [0]Доброго дня всем. Что-то никак не получается с TileWindows.
Есть главная форма, FormStyle=fsMDIForm;
Убираем новую форму Form2 из списка автосоздаваемых форм.
Затем - File->New->Form и FormStyle=fsMDIChild;
В главном юните пишу:
procedure TMainFm.NewChildExecute(Sender: TObject);
begin
NewChildFm:=TForm2.Create(Self);
NewChildFm.Parent:=Self;
end;
procedure TMainFm.TileWndExecute(Sender: TObject);
var
sr:TRect;
begin
SetRect(sr,Left,Top,Left+Width,Top+Height);
TileWindows(Handle,MDITILE_HORIZONTAL,@sr,0,nil);
end;
Формы создаются...
И ничего не происходит...
← →
Плохиш © (2007-08-06 17:12) [1]А чем TForm.Tile не угодила?
← →
tytus © (2007-08-06 17:21) [2]>Плохиш © (06.08.07 17:12) [1]
Точна!
Спасибо. Вопрос можно считать закрытым на половину,
так как проблема решилась, а нормально заставить работать
через TileWindows - неполучилось.
← →
Плохиш © (2007-08-06 17:43) [3]
> tytus © (06.08.07 17:21) [2]
TileWindows(ClientHandle, MDITILE_HORIZONTAL, nil, 0, nil);
Страницы: 1 вся ветка
Текущий архив: 2007.08.26;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.076 c
