CreateWindow

← →
DillerXX (2003-11-06 14:30) [0]

Кто-нибудь, объясните, как ей пользоваться? А то она у меня при запуске выдаёт ошибку и окно отладчика.

← →
Prov (2003-11-06 14:37) [1]

Пиши мне на мыло, и я тебе всё разьясню

← →
Игорь Шевченко (2003-11-06 14:54) [2]

Все разъясняется обычно по F1 :)

← →
DillerXX (2003-11-06 15:06) [3]

> Все разъясняется обычно по F1 :)

В том то и дело, что по функциям винапи в стандартном хелпе ничего не написано :( Может кто подкинет линки на них?

← →
OlegGashev (2003-11-06 15:11) [4]

Даю код на С. На delphi переделать труда не составит?
#include <windows.h> /* Declare Windows procedure */ LRESULT CALLBACK WindowProcedure (HWND, UINT, WPARAM, LPARAM); /* Make the class name into a global variable */ char szClassName[ ] = "WindowsApp"; int WINAPI WinMain (HINSTANCE hThisInstance, HINSTANCE hPrevInstance, LPSTR lpszArgument, int nFunsterStil) { HWND hwnd; /* This is the handle for our window */ MSG messages; /* Here messages to the application are saved */ WNDCLASSEX wincl; /* Data structure for the windowclass */ /* The Window structure */ wincl.hInstance = hThisInstance; wincl.lpszClassName = szClassName; wincl.lpfnWndProc = WindowProcedure; /* This function is called by windows */ wincl.style = CS_DBLCLKS; /* Catch double-clicks */ wincl.cbSize = sizeof (WNDCLASSEX); /* Use default icon and mouse-pointer */ wincl.hIcon = LoadIcon (NULL, IDI_APPLICATION); wincl.hIconSm = LoadIcon (NULL, IDI_APPLICATION); wincl.hCursor = LoadCursor (NULL, IDC_ARROW); wincl.lpszMenuName = NULL; /* No menu */ wincl.cbClsExtra = 0; /* No extra bytes after the window class */ wincl.cbWndExtra = 0; /* structure or the window instance */ /* Use Windows"s default color as the background of the window */ wincl.hbrBackground = (HBRUSH) COLOR_BACKGROUND; /* Register the window class, and if it fails quit the program */ if (!RegisterClassEx (&wincl)) return 0; /* The class is registered, let"s create the program*/ hwnd = CreateWindowEx ( 0, /* Extended possibilites for variation */ szClassName, /* Classname */ "Windows App", /* Title Text */ WS_OVERLAPPEDWINDOW, /* default window */ CW_USEDEFAULT, /* Windows decides the position */ CW_USEDEFAULT, /* where the window ends up on the screen */ 544, /* The programs width */ 375, /* and height in pixels */ HWND_DESKTOP, /* The window is a child-window to desktop */ NULL, /* No menu */ hThisInstance, /* Program Instance handler */ NULL /* No Window Creation data */ ); /* Make the window visible on the screen */ ShowWindow (hwnd, nFunsterStil); /* Run the message loop. It will run until GetMessage() returns 0 */ while (GetMessage (&messages, NULL, 0, 0)) { /* Translate virtual-key messages into character messages */ TranslateMessage(&messages); /* Send message to WindowProcedure */ DispatchMessage(&messages); } /* The program return-value is 0 - The value that PostQuitMessage() gave */ return messages.wParam; } /* This function is called by the Windows function DispatchMessage() */ LRESULT CALLBACK WindowProcedure (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam) { switch (message) /* handle the messages */ { case WM_DESTROY: PostQuitMessage (0); /* send a WM_QUIT to the message queue */ break; default: /* for messages that we don"t deal with */ return DefWindowProc (hwnd, message, wParam, lParam); } return 0; }

← →
DillerXX (2003-11-06 15:51) [5]

Да я вроде так и сделал. Тока я кнопку создаю. Вот:
CreateWindowEx(0,"TButton","6ATOH",WS_OVERLAPPED,100,100,30,30,Handle,0,0,nil);
Не работает. :(

← →
clickmaker (2003-11-06 15:53) [6]

> DillerXX © (06.11.03 15:51) [5]
> Да я вроде так и сделал. Тока я кнопку создаю. Вот:
>
> CreateWindowEx(0,"TButton","6ATOH",WS_OVERLAPPED,100,100,30,30,Handle,0,0,nil);
>
> Не работает. :(

Ты бы еще написал TБатон :)

Виндозный класс - это "BUTTON"

← →
DillerXX (2003-11-06 16:08) [7]

Спасиба за Баттон теперь ошибки нет но и кнопки тоже ;)

← →
clickmaker (2003-11-06 16:14) [8]

И стиль батона не указал. WS_OVERLAPPED это вообще 0. А батон, он может быть BS_PUSHBUTTON, BS_RADIOBUTTON... В общем в хелпе по CreateWindow см. Button Styles

← →
clickmaker (2003-11-06 16:18) [9]

плюс еще неплохо бы указать WS_VISIBLE or WS_CHILD. Батон-то у тебя не в воздухе висит, а на форме

← →
DillerXX (2003-11-06 16:24) [10]

Ну да нету у меня хелпа по АПИ! Так бы сам узнал.

← →
DillerXX (2003-11-06 16:28) [11]

А куда WS_VISIBLE or WS_CHILD пихать я непонял...

← →
clickmaker (2003-11-06 16:30) [12]

> DillerXX © (06.11.03 16:28) [11]
> А куда WS_VISIBLE or WS_CHILD пихать я непонял...

Это значит пора сделать паузу, скушать твикс :)

Туда же, куда и WS_OVERLAPPED

← →
Игорь Шевченко (2003-11-06 16:42) [13]

CreateWindow Найти похожие ветки