Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.16;
Скачать: CL | DM;

Вниз

Как создать полноэкранное окно без заголовка?   Найти похожие ветки 

 
cyborg ©   (2002-10-29 20:43) [0]

Ох, никак не получается, на данный момент вот такое у меня:
WndClass.style := CS_BYTEALIGNCLIENT or CS_NOCLOSE;
WndClass.lpfnWndProc := @WindowProc;
WndClass.cbClsExtra := 0;
WndClass.cbWndExtra := 0;
WndClass.hInstance := hInstance;
WndClass.hIcon := LoadIcon ( 0,IconName);
WndClass.hCursor := LoadCursor(0,idc_arrow);
WndClass.hbrBackground :=1;// GetStockObject(NULL_BRUSH);
WndClass.lpszMenuName := nil;
WndClass.lpszClassName := ClassName;
if not Boolean(Windows.RegisterClass(WndClass)) then Halt(1);
Result:=CreateWindowEx(
WS_EX_APPWINDOW or WS_EX_DLGMODALFRAME,
ClassName,
WindowName,
WS_VISIBLE or WS_DLGFRAME or WS_MAXIMIZE,
0,
0,
ScreenWidth,
ScreenHeight,
0,
0,
hInstance,
Nil);
WindowClassName := ClassName;
ShowWindow(Result,SW_SHOWMAXIMIZED);


Всё работает, но никак ненайду где и что нужно сделать чтобы просто во весь экран было и без заголовка и бордюров. Эти WS_ и CS_ всякие перепробовал, подскажите пожалуйста!!! Нужно просто сделать полноэкранное окно, чтобы не перемещалось и бордюров небыло.


 
cyborg ©   (2002-10-29 22:15) [1]

Люди, человеки! Очень нужно, подайте пожалуйста на блюдечке. Хотябы на худой конец ключевое слово дайте, в справке поискать.


 
SPeller ©   (2002-10-30 01:29) [2]

Left:=0; Top:=0; Height:=Screen.Height; Width:=Screen.Width;

Вот тебе и весь экран, ёлки-палки :-)))


 
SPeller ©   (2002-10-30 01:30) [3]

И ещё добавь HWND_TOPMOST, чтобы ничего не вылезло поверх твоего окна.


 
cyborg ©   (2002-10-30 10:36) [4]

SPeller ©, а это что такое?

CreateWindowEx(
WS_EX_APPWINDOW or WS_EX_DLGMODALFRAME,
ClassName,
WindowName,
WS_VISIBLE or WS_DLGFRAME or WS_MAXIMIZE,
0,
0,
ScreenWidth,
ScreenHeight,

0,
0,
hInstance,
Nil);
WindowClassName := ClassName;
ShowWindow(Result,SW_SHOWMAXIMIZED);

Знаешь такую вещь: "Не уверен, не обгоняй!"?


 
Subfire ©   (2002-10-30 11:06) [5]

WS_EX_OVERLAPPEDWINDOW не поможет?


 
cyborg ©   (2002-10-30 11:20) [6]

нет, не помогает :(
Неужели никто не создавал окно на API?


 
cyborg ©   (2002-10-30 12:07) [7]

сделал, кому интересно смотрите:


VAR
Handle : HWnd;
WndClass: TWndClass;
WindowClassName : PChar;
Mesg : TMsg;

Function WindowProc( Wnd:hWnd; Msg:Integer; wParam:WParam; lParam:lParam):LResult;stdcall;
begin
case msg of
wm_destroy :
Begin
postquitmessage(0); Result:=0; exit;
End;

WM_CHAR :
Begin
case wParam of
27 :
Begin
postquitmessage(0); Result:=0; exit;
End;
end;//case wParam
End;
else Result:=DefWindowProc(Wnd, Msg, wParam, lParam);
end;
end;

Function CreateWindow(Const ClassName,WindowName : PChar; Const IconName: PChar; Const ScreenWidth,ScreenHeight : Integer) : HWnd;
Begin
WndClass.style := CS_OWNDC or CS_CLASSDC or CS_BYTEALIGNCLIENT or CS_NOCLOSE;
WndClass.lpfnWndProc := @WindowProc;
WndClass.cbClsExtra := 0;
WndClass.cbWndExtra := 0;
WndClass.hInstance := hInstance;
WndClass.hIcon := LoadIcon ( 0,IconName);
WndClass.hCursor := LoadCursor(0,idc_arrow);
WndClass.hbrBackground :=1;GetStockObject(NULL_BRUSH);
WndClass.lpszMenuName := nil;
WndClass.lpszClassName := ClassName;
if not Boolean(Windows.RegisterClass(WndClass)) then Halt(1);
Result:=CreateWindowEx(
WS_EX_TOPMOST,
ClassName,
WindowName,
WS_POPUP,
0,
0,
ScreenWidth,
ScreenHeight,
0,
0,
hInstance,
Nil);
WindowClassName := ClassName;
ShowWindow(Result,SW_SHOWMAXIMIZED);
End;


BEGIN
Handle:=CreateWindow("Название класса окна","Название окна", Nil, GetSystemMetrics(SM_CXSCREEN), GetSystemMetrics(SM_CYSCREEN));
While GetMessage(Mesg,0,0,0) do
begin
TranslateMessage(Mesg);
DispatchMessage(Mesg);
end;
if Handle<>0 then CloseWindow(Handle);
Windows.UnRegisterClass(WindowClassName, hInstance);
END;


вроде ничего не забыл


 
cyborg ©   (2002-10-30 12:09) [8]

WndClass.hbrBackground :=1;//GetStockObject(NULL_BRUSH);
Если без заполнения, то в комментарии код


 
Qpwoe! ©   (2002-11-03 23:13) [9]

Left:=0;
Top:=0;
Height:=Screen.Height;
Width:=Screen.Width;
borderstyle:=bsnone;
formstyle:=fsstayontop;






Страницы: 1 вся ветка

Текущий архив: 2002.12.16;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.016 c
14-51923
han_malign
2002-11-25 12:58
2002.12.16
Opera 7+ Win98+ UniCirillic


6-51881
Incognito
2002-10-20 00:34
2002.12.16
Имя соединения (провайдера)


1-51758
Cranium
2002-11-27 03:02
2002.12.16
Как определить высоту TMainMenu на форме?


4-52002
Kilin
2002-10-23 14:19
2002.12.16
Ошибка ShellExecute


1-51709
lovres
2002-12-05 23:49
2002.12.16
Помогите с элементарным классом