Форум: "WinAPI";
Текущий архив: 2004.01.09;
Скачать: [xml.tar.bz2];
Вниз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]DillerXX © (06.11.03 16:24) [10]
В Delphi: Help|Windows SDK
Читать.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2004.01.09;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.016 c