Форум: "WinAPI";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];
ВнизКнопка на таскбаре Найти похожие ветки
← →
PVR (2003-10-19 15:37) [0]Можно ли сделать так чтоб один делфийский экзешник имел несколько кнопок приложения в таске?
(одну кнопенцию аппликатион бабахает в таск когда хоть одна форма видима а как забабахать туда кнопенцию когда ни одна форма не видима или несколько кнопенций ну как бы на каждую открытую форму)
Заранее благодарен.
Разумеется это не стандартный подход и разумеется это не есть коректно но IMHO
P.S. D6 VCL
← →
jonni (2003-10-19 18:54) [1]sozday esche odnu vidimuyu formu no tol"ko pomesti ee vne ekrana
← →
DVM (2003-10-19 19:00) [2]Можно послать таскбару сообщение о том что создано новое окно. Если он не проверяет правильность хэндла окна то может пройдет.
← →
PVR (2003-10-19 19:22) [3]--Jonni
Это как вне экрана в смысле использовать другой монитор?
А еси их нет!
← →
DiamondShark (2003-10-19 20:30) [4]Можно.
Читать в справке SDK про стили окон.
← →
PVR (2003-10-20 00:40) [5]--DiamondShark Да получилось кнопка есть токо не понятно какой там обработчик WndProc писать пробовал разное приложение зжирает 100% ресурсов
FHandle := Windows.CreateWindowEx(WS_EX_APPWINDOW, "MDICLIENT"{Чтоб ничего не сочинять},
nil, WS_DISABLED , 0, 0, 0, 0, 0, 0,
HInstance, @ClientCreateStruct);
может в разных потоках это делать надо?
← →
PVR (2003-10-20 10:16) [6]Ура это я там перемудрил чегото ларчик прост (да здравствует VCL)
TAppWindow=class(TForm)
protected
procedure CreateParams(var Params: TCreateParams); override;
procedure DoClose(var Action: TCloseAction); override;
public
constructor CreateNew(AOwner: TComponent; Dummy: Integer = 0);
override;
end;
constructor TAppWindow.CreateNew(AOwner: TComponent; Dummy: Integer);
begin
inherited;
caption:="gggggggt";
BorderStyle:=bsnone;
SetBounds(0,0,0,0);
end;
procedure TAppWindow.CreateParams(var Params: TCreateParams);
begin
inherited;
with Params do
ExStyle:=ExStyle or WS_EX_APPWINDOW;
end;
procedure TAppWindow.DoClose(var Action: TCloseAction);
begin
inherited;
action:=caFree;
end;
Конечно можно и проще DoClose совсем не обязателен например и параметры в конструкторе тоже совсем не обязательны короче достаточно и:
TAppWindow=class(TForm)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;
procedure TAppWindow.CreateParams(var Params: TCreateParams);
begin
inherited;
with Params do
ExStyle:=ExStyle or WS_EX_APPWINDOW;
end;
Всем кто учавствовал огромный ФЕНКС
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c