Форум: "Основная";
Текущий архив: 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.46 MB
Время: 0.038 c