Создание диалогового окна

← →
Centronix (2003-04-24 14:45) [0]

Как создать на кол форму, похожую на 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.

← →
Boguslaw (2003-04-24 19:55) [1]

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

← →
Centronix (2003-04-24 21:55) [2]

> 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 для формы...

← →
Centronix (2003-04-24 21:57) [3]

Торможу... в VCL для этого свойство есть :)

← →
Boguslaw (2003-04-25 00:08) [4]

Windows XP Polish , D5 Standard
But window has strange icon becouse no icon resource was included (MAINICON?)

Boguslaw

← →
Centronix (2003-04-25 00:59) [5]

> But window has strange icon becouse no icon resource was
> included (MAINICON?)

Вот то-то и оно. А нужно чтобы ее не было...

← →
Boguslaw (2003-04-25 14:08) [6]

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

> 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 18:12) [8]

Thank You Gandalf :-)

← →
Centronix (2003-04-25 18:27) [9]

> Window.Icon := THandle(-1);

Кул, это работает! Thanx :)

Создание диалогового окна Найти похожие ветки