Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "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
6-25462
RoLeX
2003-11-09 18:20
2004.01.09
Как узнать подключен ли комп к инету???


14-25587
DelphiN!
2003-12-17 08:56
2004.01.09
Прога для маштабного изменения веб страниц


1-25385
Talla2k
2003-12-25 01:24
2004.01.09
StringGrid


14-25598
IronHawk
2003-11-27 16:31
2004.01.09
Какой форматировщик кода проги выбрать для Delphi & C++ Builder ?


14-25611
Ske4er
2003-12-17 07:56
2004.01.09
Куваев Олежка





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский