Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Вопросик...

Обсолютный ноль © (2002-11-06 14:48:00)
Вопрос: привидите по жалуйста простенький пример програмы с формой написанной на API.
Заранее благодарен.

Jack128 (2002-11-15 16:10:00) [1]
2 Qpwoe!
>>Насчёт класса EDIT или BUTTON так его вообще в API нету так >>что можно сделать только создав дополнительную функции >>прорисовки!
как нету - есть!!
GetClassInfo - их параметры
меняешь оконную функцию на свою а старую запоминаешь
в своей WindowProc сначало вызываешь старую оконную функцию
а потом реализуешь необходимые тебе действия

Обсолютный ноль (2002-11-15 15:17:00) [2]
ОПС, нашёл... Уже качается:)

Обсолютный ноль (2002-11-15 07:14:00) [3]
Уже смотрел... не нашёл:(

noone_nowhere (2002-11-14 16:32:00) [4]
на этом сайте в кладовке

Обсолютный ноль (2002-11-14 05:55:00) [5]

> .../Borland Delphi 6/Help/MS SDK Help Files/Win32 SDK Reference,
> to tam vse est" i vse prekrasno ishetsya.

Такого вообще нет!

Ну так подскажите где HELP взять?

Qpwoe! (2002-11-11 19:28:00) [6]
Насчёт класса EDIT или BUTTON так его вообще в API нету так что можно сделать только создав дополнительную функции прорисовки!

Alex44 (2002-11-10 12:30:00) [7]

> Так сам HELP где взять?

Pochemu-to k help"u, vyzyvaemomu iz delphi, WinAPI ploho prilinkovan. No esli prosto otkrut"
.../Borland Delphi 6/Help/MS SDK Help Files/Win32 SDK Reference,
to tam vse est" i vse prekrasno ishetsya.

Василий2 (2002-11-10 08:17:00) [8]
Или WM_COMMAND...

Обсолютный ноль (2002-11-10 06:43:00) [9]
Так сам HELP где взять?

Ich Hasse (2002-11-09 15:50:00) [10]
wm_system: begin case WParam of begin end; end;

TankMan (2002-11-09 00:33:00) [11]
А потом еще будет вопрос... "ну и самый что ни наесть последний вопрос - а как отлавливать событие по нажатию на эту Button и Edit?" :LOL:

Alex44 (2002-11-08 19:38:00) [12]
> И наконец... как создать Edit и Button через этот самый WinAPI

Okno classa "EDIT" ili "BUTTON"

Обсолютный ноль (2002-11-08 19:18:00) [13]
Ну и наконец, а где можно достать ХОРОШИЙ Help по WinAPI?
И наконец... как создать Edit и Button через этот самый WinAPI

Lexa1900 (2002-11-08 13:29:00) [14]
в View Source..., перед этим удалив Unit1 щёлкнув на Remove from Project...

Lony (2002-11-08 11:55:00) [15]
Lexa1900
А это куда можно вставить, в консоль?

Обсолютный ноль (2002-11-08 06:09:00) [16]
Спасибо!!!

Lexa1900 (2002-11-06 20:22:00) [17]
program winmin;

uses
windows, messages;

{"модули windows и messages самые необходимые — они обязательно должны быть
объявлены в начале каждой Вашей программы!}
var
wc : TWndClassEx; //Переменная шаблона класса окна
MainWnd : HWND; //Описатель главного окна
Mesg : TMsg; //Переменная для цикла сбора сообщений
{ Далее следует оконная процедура главного окна. Обратите внимание на служебное
слово stdcall оно вынуждает компиллятор генерировать особый вид кода, который

может быть вызван любой windows-программой, без этого служебного слова
программа не сможет работать вообще!}

function WindowProc(wnd:HWND; Msg : Integer; Wparam:Wparam; Lparam:Lparam):Lresult;
stdcall;
Begin
{Далее происходит цикл обработки сообщений}
case msg of
wm_destroy : //Сообщение посылаемое при уничтожении окна
Begin
postquitmessage(0); exit;

Result:=0;
End
else Result:=DefWindowProc(wnd,msg,wparam,lparam);
end;
End;

{Переменные xPos,yPos,nWidth,nHeight в принципе не нужны, однако я их завел
(и вам рекомендую) для лучшей читабельности программы}

var
xPos,yPos,nWidth,nHeight : Integer;
begin //Тело программы
{ Далее идет заполнение шаблона класса окна}

wc.cbSize:=sizeof(wc);
wc.style:=cs_hredraw or cs_vredraw;
wc.lpfnWndProc:=@WindowProc;
wc.cbClsExtra:=0;

wc.cbWndExtra:=0;
wc.hInstance:=HInstance;
wc.hIcon:=LoadIcon(0,idi_application);
wc.hCursor:=LoadCursor(0,idc_arrow);
wc.hbrBackground:=COLOR_BTNFACE+1;
wc.lpszMenuName:=nil;
wc.lpszClassName:="WinMin : Main";
RegisterClassEx(wc); //Регистрация нового класса в системе

{"заполнение переменных xPos,yPos,nWidth,nHeight}

xPos:=100;
yPos:=150;
nWidth:=400;

nHeight:=250;

{ Создание главного окна}
MainWnd:=CreateWindowEx (
0, //флаги расширенных стилей
"WinMin : Main", //имя класса окна, данное при заполнении структуры wc
"Win Min", //заголовок окна
ws_overlappedwindow, //флаги стилей окна
{подробнdее о стилях см. после текста программы}
xPos, //горизонтальная позиция окна
yPos, //вертикальная позиция окна

nWidth, //ширина окна
nHeight, //высота окна
0, //описатель родительского окна (parent) или окна-владельца (owner)
0, //описатель меню окна (меню нет, нет и описателя)
Hinstance, //описатель приложения
nil //address of window-creation data
);
ShowWindow(MainWnd,CmdShow); //Отображаем окно

//Цикл обработки сообщений
//он может слегка видоизменяться, но эти строчки присутсвуют всегда

While GetMessage(Mesg,0,0,0) do
begin
TranslateMessage(Mesg);
DispatchMessage(Mesg);
end;
end.

Взято из Rus WinAPI Help - скачай с сайта, пригодится!

Игорь Шевченко (2002-11-06 15:46:00) [18]
А это что за язык такой ?

Наверх

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