Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.023 c
8-1163934187
Николай_Москва
2006-11-19 14:03
2007.08.26
Простая задачка - как лучше делать (наложение графики)


1-1181824064
INJCAL
2007-06-14 16:27
2007.08.26
CRC32


2-1185659944
lookin
2007-07-29 01:59
2007.08.26
Забыл (или не знал?) - как убрать моргание TImage при перерисовке


15-1185502791
SlymRO
2007-07-27 06:19
2007.08.26
С Днём Системного Администратора!!!


9-1149643604
Galiaf
2006-06-07 05:26
2007.08.26
Сетевые игры сеть для игры.