| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Форма без границ и заголовка [D7]

Варяг ©   (2006-07-31 21:17:00) 

Имеется ввиду 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-08-01 16:34:00) [1]

спасибо всем за помощь

---

Варяг   (2006-08-01 16:34:00) [2]

спасибо всем за помощь

---

Юрий Зотов   (2006-08-01 03:21:00) [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.


---

Ketmar   (2006-07-31 21:54:00) [4]

WS_POPUP?

---

Варяг   (2006-07-31 21:20:00) [5]

блин механически не посмотрел в какая конференция текущая

---

Наверх