Форум: "Основная";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
ВнизФорма без границ и заголовка Найти похожие ветки
← →
Варяг © (2006-07-31 21:17) [0]Имеется ввиду Form1.BorderStyle:=bsNone
Форму создавал след. образом
при попытке избавиться от свойства WS_BORDER
Delphi выдавла ошибку или не хотела билдить проект..
Function CreateWndClass:LongInt;
Var lpWndClass:TWndClass;
MyWnd:HWND;
Brush:HWND;
begin
lpWndClass.style:=CS_VREDRAW or CS_HREDRAW ;
lpWndClass.lpfnWndProc:=@MyWndProc;
lpWndClass.cbClsExtra:=0;
lpWndClass.cbWndExtra:=0;
lpWndClass.hInstance:=hInstance;
lpWndClass.hIcon:=LoadIcon(hInstance,"MAINICON");
//LoadIcon(0,IDI_APPLICATION);
lpWndClass.hCursor:=LoadCursor(0,IDC_ARROW);
lpWndClass.hbrBackground:=CreateSolidBrush(RGB(150,255,250));;
lpWndClass.lpszMenuName:=NIL;
lpWndClass.lpszClassName:=MyWndClass;
Result:=RegisterClass(lpWndClass);
If Result=0 then Halt;
end;
Function CreateWnd:LongInt;
begin
Result:=
CreateWindow(
PChar(MyWndClass),
Pchar("MyWnd-Caption"),
WS_BORDER or WS_VISIBLE
or WS_OVERLAPPEDWINDOW,
200,
200,
480,
350,
0,
0,
HInstance,
0);
If Result=0 then Halt ;
PaintMyWmd(Result);
Wnd:=Result;
RegisterHotKey(MyWnd,0,0,VK_PAUSE);
RegisterHotKey(MyWnd,1,0,VK_ESCAPE);
end;
← →
Варяг © (2006-07-31 21:20) [1]блин механически не посмотрел в какая конференция текущая
← →
Ketmar © (2006-07-31 21:54) [2]WS_POPUP?
← →
Юрий Зотов © (2006-08-01 03:21) [3]
program Project1;
{$R *.res}
uses
Windows,
Messages;
function WndFunc(Wnd: HWND; Msg: DWORD; WParam, LParam: Integer): Integer; stdcall;
begin
if Msg = WM_DESTROY then
begin
PostQuitMessage(0);
Result := 0
end
else
Result := DefWindowProc(Wnd, Msg, WParam, LParam)
end;
var
WndClass: TWndClassEx;
Wnd: HWND = 0;
Msg: TMsg;
begin
ZeroMemory(@WndClass,SizeOf(WndClass));
WndClass.hInstance := HInstance;
with WndClass do
begin
cbSize := SizeOf(WndClass);
Style := CS_HREDRAW or CS_VREDRAW;
lpfnWndProc := @WndFunc;
hIcon := LoadIcon(HInstance, "MAINICON");
hCursor := LoadCursor(0, IDC_ARROW);
hbrBackground := GetSysColorBrush(COLOR_BTNFACE);
lpszClassName := "MySuperPuperWindow";
hIconSm := hIcon;
RegisterClassEx(WndClass);
Wnd := CreateWindowEx(0, lpszClassName, lpszClassName,
WS_POPUP or WS_SYSMENU or WS_VISIBLE, 100, 100, 100, 100, 0, 0, HInstance, nil)
end;
while GetMessage(Msg, 0, 0, 0) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg)
end;
ExitThread(Msg.wParam)
end.
← →
Варяг © (2006-08-01 16:34) [4]спасибо всем за помощь
← →
Варяг © (2006-08-01 16:34) [5]спасибо всем за помощь
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.045 c