| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Создание диалогового окна
Centronix © (2003-04-24 14:45:00)
Как создать на кол форму, похожую на VCL"овскую с BorderStyle = bsDialog ? Имеется ввиду, что на заголовке формы есть кнопка закрытия окна и нет иконки.
Вот это не работает:
program Demo;
uses
Windows,
Kol;
var
Window: PControl;
begin
Applet:=NewApplet("Demo App");
Window:=NewForm(Applet, "Demo Form").SetSize(400, 240).CenterOnParent;
Window.Style:=WS_BORDER or WS_CAPTION or WS_SYSMENU;
Window.ExStyle:=WS_EX_DLGMODALFRAME;
Run(Applet);
end.
Centronix (2003-04-25 18:27:00) [1]
> Window.Icon := THandle(-1);
Кул, это работает! Thanx :)
Boguslaw (2003-04-25 18:12:00) [2]
Thank You Gandalf :-)
Gandalf (2003-04-25 16:08:00) [3]
> No icon ! But another problem is how to load standard WinLogo
> icon (or other system icon : IDI_APPLICATION,IDI_ASTERISK,IDI_HAND
> ...)
Значится так, MSDN 2002apr:
LoadIcon
...
IDI_WINLOGO Windows logo icon.
Windows XP: Default application icon.
Т.е. никак, нет больше такого значка. По факту в XP прировняли
IDI_APPLICATION и IDI_WINLOGO. А вот IDI_ASTERISK..IDI_WARNING - работают, проверял. WinXP SP1 RUS.
Boguslaw (2003-04-25 14:08:00) [4]
Here You are :
program RegTest;
uses
Windows,
Kol;
var
Window: PControl;
begin
Applet:=NewApplet("Demo App");
Window:=NewForm(Applet, "Demo Form").SetSize(400, 240).CenterOnParent;
Window.Style:=WS_BORDER or WS_CAPTION or WS_SYSMENU ;
Window.ExStyle:=WS_EX_DLGMODALFRAME;
Window.Icon := THandle(-1);
Run(Applet);
end.
No icon ! But another problem is how to load standard WinLogo icon (or other system icon : IDI_APPLICATION,IDI_ASTERISK,IDI_HAND ...)
Window.Icon := LoadIcon(0,IDI_WINLOGO) is not working.
Boguslaw
Centronix (2003-04-25 00:59:00) [5]
> But window has strange icon becouse no icon resource was
> included (MAINICON?)
Вот то-то и оно. А нужно чтобы ее не было...
Boguslaw (2003-04-25 00:08:00) [6]
Windows XP Polish , D5 Standard
But window has strange icon becouse no icon resource was included (MAINICON?)
Boguslaw
Centronix (2003-04-24 21:57:00) [7]
Торможу... в VCL для этого свойство есть :)
Centronix (2003-04-24 21:55:00) [8]
> Are You sure ? I tried and working perfectly ! (wow! and
> EXE size is below 15kB)
На какой операционной системе это делалось ? У меня Windows XP Rus, D6 + SP2...
> What I want to know is : how to not show Close button on
> top-right corner of window in bsDialog style ? (I don"t
> mean disable - I just want to completly invisible Close
> "X" button)
Window.Style:=WS_BORDER or WS_CAPTION;
А если в VCL, то надо оверрайдить CreateParams для формы...
Boguslaw (2003-04-24 19:55:00) [9]
Are You sure ? I tried and working perfectly ! (wow! and EXE size is below 15kB)
What I want to know is : how to not show Close button on top-right corner of window in bsDialog style ? (I don"t mean disable - I just want to completly invisible Close "X" button)
Boguslaw
| |
