Хочу сделать что-то наподобии VCL-овского TForm.
Я видел уже минимальную прогу на WinApi. Но тама одна форма создается.. а я хочу что то наподобии:
MyForm1:=TWindow.create;
MyForm1.top...
...
MyForm1.show;
MyForm2:=TWindow.create;
ну типа того... неполучется у меня создать объект.. я в ООП плохо разбираюсь...

Код

program test; uses Windows, Messages; type TWindow = object  FCaption:String;  FWinName:String;  FHandle: HWND;  property Handle: HWND read FHandle write FHandle;  property WinName: string read FWinName write FWinName;  property caption: string read FCaption write FCaption;  procedure Show;  function MainWndProc(Window: HWnd; AMessage, WParam, LParam: Longint): Longint; stdcall; export;  constructor create;  end; constructor TWindow.create; var wcx:TWndClass; begin    wcx.style := CS_HREDRAW or CS_VREDRAW;    wcx.lpfnWndProc := @TWindow.MainWndProc;    wcx.cbClsExtra := 0;    wcx.cbWndExtra := 0;    wcx.hInstance := hInstance;    wcx.hIcon := LoadIcon(0, IDI_APPLICATION);    wcx.hCursor := LoadCursor(0, IDC_ARROW);    wcx.hbrBackground := COLOR_WINDOW;    wcx.lpszMenuName :=  nil;    wcx.lpszClassName := PChar(fWinName);    RegisterClass(wcx);    fHandle:= CreateWindow(   PChar(fWinName),   PChar(fcaption),   WS_OVERLAPPEDWINDOW,   Integer(CW_USEDEFAULT),   Integer(CW_USEDEFAULT),   Integer(CW_USEDEFAULT),   Integer(CW_USEDEFAULT),   0,   0,   hInstance,   nil); end; function TWindow.MainWndProc(Window: HWnd; AMessage, WParam,                    LParam: Longint): Longint; stdcall; export; begin  case AMessage of    WM_DESTROY: halt;    else       Result := DefWindowProc(fhandle, AMessage, WParam, LParam);  end; end; procedure TWindow.Show; begin ShowWindow(fhandle, CmdShow); UpdateWindow(fhandle); end; var wnd:TWindow; GMes:msg; h:hwnd; begin Wnd.caption:= 'lol'; Wnd.WinName:='gg'; Wnd.create; Wnd.Show;    while (GetMessage(GMes, 0, 0, 0)) do    begin      //Запускаем цикл обработки сообщений      TranslateMessage(GMes);      DispatchMessage(GMes);    end; end.

Только не пинайте

Цитата

Хочу сделать что-то наподобии VCL-овского TForm.

А зачем?
Сделай принтер наподобие HP 1200.

Надо Во первых когда пишутся WinApi приложения неужеле стока процедур и кода пишется если допустим 5 форм в приложеннии
Во вторых просто интересно


Это сообщение отредактировал(а) Ripper - 29.1.2005, 18:57

Посмотри
"Программирование на основе Win32 API в Delphi"
Автор: Николай Мазуркин

Там, вроде объясняется... Правда у меня так и не заработало=(((

в Delphi, если мне не изменяет память объекты создаются так:

Код

Wnd=TWindow.Create;

потому как Wnd в начале программы указывает в никуда, и происходит попытка вызвать конструктор для объекта, расположенного как раз в этом "никуда"
Добавлено @ 16:54
ну и несколько мыслей/замечаний по поводу приведенного кода:
1. для нескольких окон такого типа, насколько я понял, будет использоваться один оконный класс (что вполне логично), однако, при в конструкторе (который будет вызываться при создании КАЖДОГО окна) опять происходит его регистрация, я, честно говоря, просто не знаю, как себя ведет RegisterClass при попытке зарегистрировать два класса с одинаковым именем, но на это место, по крайней мере, стоит обратить внимание
2. что касается оконной функции... а этот код вообще скомпилился? потому, как с одной стороны оконная функция представлена здесь, как метод класса, а с другой стороны передается, как обычная функция в RegisterClass... здесь надо бы использовать нечто более замысловатое, потому как когда оконная функция вызывается для обработки сообщения, она получает только handle окна, но никак ни адрес объекта, с которым оно связанно...