Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Окно в рабочей панели [D5, WinME]

basic © (2002-11-05 13:10:00)
Намекните мне, как создать окно чтоб оно на рабочей панели отдельно появлялось от главного окна

basic (2002-11-05 13:51:00) [1]
этот пример я смотрел, но не понял, хотя вроде я так и делал когда экспериментировал, но в меню дети не отображались

Skier (2002-11-05 13:48:00) [2]
>basic
Надо проставить WindowMenu у главной формы.
Но Caption-ы "детей" должны задаваться по английски
(иначе будут проблемы).

А вообще-то по этому поводу в Delphi есть пример...

basic (2002-11-05 13:43:00) [3]
я вот догадывался что где-то там есть что-то похожее, не знаю есть ли там вынос дочерних окон, но меня устроило бы просто показать их в списке окон в меню, почему-то нигде не нашел информацию какое волшебное слово меню шепнуть, чтоб оно отображало этот список. В примерах насколько я понял делается автоматом, добавление, удаление в списке, а вот как...

Skier (2002-11-05 13:37:00) [4]
>basic
А не сделать ли тебе MDI-приложение ?

basic (2002-11-05 13:34:00) [5]
не желательно, у меня используется общая БД, и в каждом окне показывается новая тема из нее

MBo (2002-11-05 13:33:00) [6]
procedure TForm2.FormCreate(Sender: TObject);
begin
SetWindowLong(handle,GWL_EXSTYLE ,
GetWindowLong(handle,GWL_EXSTYLE) or WS_EX_APPWINDOW);
end;

BoxTer (2002-11-05 13:26:00) [7]
создай другое приложение, которое табе нуно отдельно и из первого делай так:
WinExec(PChar(второй_кусок_проги),SH_SHOW);

:-)

basic (2002-11-05 13:22:00) [8]
попробую, когда создается окно, оно принадлежит программе, и в списке задач, показывается только главное окно, остальные не нужны, надо чтоб новое созданное окно также выделялось отдельно, если братьт ассоциации, то как в ворде, новый документ, отдельное окно

BoxTer (2002-11-05 13:16:00) [9]
в смысле? "рабочей панели".
Могет быть...
...
var Form100:TForm;
...
with Form100 do begin
Create(self);
show; {showmodal}
end;
...

Skier (2002-11-05 13:16:00) [10]
>basic
Не понял...
Давай по-подробней и по-русски...:)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »