VPF::Edit,Memo на форму используя API!? - Форум программистов

elestrago

Дата 2.6.2008, 22:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 146
Регистрация: 23.8.2007
Где: runet

Репутация: нет
Всего: 3

Парни использую код взятый из дркб для создания формы на API но мне на эту форму еще нада нанести мемо, едит и кнопку кто нибуть мне прдскажет как это сделать чистое API ?

Код


program SmallPrg;
 
uses Windows,  Messages;
 
const
WinName = 'MainWClass';
 
function MainWndProc(Window: HWnd; AMessage, WParam,
                   LParam: Longint): Longint; stdcall; export;
begin
//подпрограмма обработки сообщений
case AMessage of
   WM_DESTROY: begin
     PostQuitMessage(0);
     Exit;
   end;
   else
      Result := DefWindowProc(Window, AMessage, WParam, LParam);
end;
end;
 
function InitApplication: Boolean;
var
wcx: TWndClass;
begin
//Заполняем структуру TWndClass
   // перерисовываем, если размер изменяется
   wcx.style := CS_HREDRAW or CS_VREDRAW;
   // адрес оконной процедуры
   wcx.lpfnWndProc := @MainWndProc;
   wcx.cbClsExtra := 0;
   wcx.cbWndExtra := 0;
   // handle to instance
   wcx.hInstance := hInstance;
   // загружаем стандандартную иконку
   wcx.hIcon := LoadIcon(0, IDI_APPLICATION);
   // загружаем стандартный курсор
   wcx.hCursor := LoadCursor(0, IDC_ARROW);
   // делаем светло-cерый фон
   wcx.hbrBackground := COLOR_WINDOW;
   // пока нет главного меню
   wcx.lpszMenuName :=  nil;
   // имя класса окна
   wcx.lpszClassName := PChar(WinName);
 
   // Регистрируем наш класс окна.
   Result := RegisterClass(wcx) <> 0;
end;
 
function InitInstance: HWND;
begin
// Создаем главное окно.
Result := CreateWindow(
  // имя класса окна
  PChar(WinName),
  // заголовок
  'Small program',
  // стандартный стиль окна
  WS_OVERLAPPEDWINDOW,
  // стандартные горизонтальное, вертикальное положение, ширина и высота
  Integer(CW_USEDEFAULT),
  Integer(CW_USEDEFAULT),
  Integer(CW_USEDEFAULT),
  Integer(CW_USEDEFAULT),
  0,//нет родительского окна
  0,//нет меню
  hInstance, // handle to application instance
  nil);      // no window-creation data
end;
 
var
hwndMain: HWND;
AMessage: msg;
begin
   if (not InitApplication) then
   begin
     MessageBox(0, 'Ошибка регистрации окна', nil, mb_Ok);
     Exit;
   end;
   hwndMain := InitInstance;
   if (hwndMain = 0) then
   begin
     MessageBox(0, 'Ошибка создания окна', nil, mb_Ok);
     Exit;
   end
   else
   begin
     // Показываем окно и посылаем сообщение WM_PAINT оконной процедуре
     ShowWindow(hwndMain, CmdShow);
     UpdateWindow(hwndMain);
   end;
   while (GetMessage(AMessage, 0, 0, 0)) do
   begin
     //Запускаем цикл обработки сообщений
     TranslateMessage(AMessage);
     DispatchMessage(AMessage);
   end;
   Halt(AMessage.wParam);
end.

--------------------

anwe

Дата 2.6.2008, 22:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 748
Регистрация: 2.9.2006

Репутация: 4
Всего: 23

Цитата(elestrago @ 2.6.2008, 21:14

)

Парни

Интересно, а девушкам отвечать можно?

Также используй ту же CreateWindowEx, только в качестве родительского окна - твое окно. А класс - предопределенный: EDIT, BUTTON,LISTBOX.

Qu1nt

Дата 2.6.2008, 22:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 5
Всего: 50

Будет полезна статья:
http://xproger.mirgames.ru/?id=1&page=1&doc=winapi2

elestrago

Дата 3.6.2008, 08:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 146
Регистрация: 23.8.2007
Где: runet

Репутация: нет
Всего: 3

Спасибо anwe, Qu1nt разобрался но вот теперь другая проблема появилась ) допустим как мне обращятся к тексту едита!?

код эдита вот )

Код


    Edit := CreateWindowEx(WS_EX_CLIENTEDGE, 'EDIT', NIL,

         WS_CHILD Or WS_VISIBLE Or ES_LEFT,

         8, 28, 300, 300, hwndMain, 0, HInstance, NIL);

--------------------

Qu1nt

Дата 3.6.2008, 08:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 5
Всего: 50

Внимательней посмотри пример к статье, ссылку на которую я дал.

elestrago

Дата 3.6.2008, 08:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 146
Регистрация: 23.8.2007
Где: runet

Репутация: нет
Всего: 3

блин не заметил что в статье на которую дал линк Qu1nt, был исходник!! теперь все ясно стало ))) всем большое спасибо еще раз )))

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »