| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как заставить работать TileWindows? [D7, XP]
tytus © (2007-08-06 17:05:00)Доброго дня всем. Что-то никак не получается с 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:43:00) [1]
> tytus © (06.08.07 17:21) [2]
TileWindows( ClientHandle, MDITILE_HORIZONTAL, nil, 0, nil);
tytus (2007-08-06 17:21:00) [2]>Плохиш © (06.08.07 17:12) [1]
Точна!
Спасибо. Вопрос можно считать закрытым на половину,
так как проблема решилась, а нормально заставить работать
через TileWindows - неполучилось.
Плохиш (2007-08-06 17:12:00) [3]А чем TForm.Tile не угодила?
| |
