Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Вставка компонентов


lobach ©   (2006-06-22 10:16:00) 

Подскажите пожалуйста, как вставлять компоненты, пользуясь функциями win api? Привидите пример, например, как вставить поле ввода текста, или какой-нибудь Timer...
С WinApi начал недавно парится, смотрел хелпы, но ничего не понял...

Юрий Зотов   (2006-07-02 13:19:00) [1]

> lobach ©   (02.07.06 07:55) [18]

Эти вещи называются "окна", "меню", "иконки", "потоки" и т.п. Но они - не совсем аналоги VCL (хотя соответствующие классы VCL именно на них и основаны).

lobach   (2006-07-02 07:55:00) [2]


> Нельзя вставить то, чего нет

Я имел ввиду функции WinApi, которые реализуют вещи, аналогичные тем, что создаются с VCL

Юрий Зотов   (2006-07-01 15:07:00) [3]

> lobach ©   (28.06.06 05:16) [10]

Поймите главное - в WinAPI нет никаких компонентов. Нельзя вставить то, чего нет.

Вот Вам для затравки пример программы на чистейшем WinAPI. Если с помощью книг и справки разберетесь, как он работает, то очень много станет ясно и дальше будет намного легче.

program TrayWithoutVCL;

{$M 1024, 1024}

uses
 Windows,
 Messages,
 ShellAPI;

const
 AppName = 'WinApiTrayApp';
 WM_TRAYMSG = WM_USER + 100;

var
 WndClass: TWndClassEx;
 WndHandle: HWND = 0;
 Msg: TMsg;
 IconData: TNotifyIconData;
 IconMenu: HMENU = 0;
 SecondIcon: HICON;

function WndFunc(Wnd, Msg: DWORD; wParam, lParam: integer): integer; stdcall;
var
 P: TPoint;
begin
 case Msg of
   WM_DESTROY, WM_QUERYENDSESSION:
     begin
       Result := Integer(Msg = WM_QUERYENDSESSION);
       PostQuitMessage(0)
     end;
   WM_TRAYMSG:
     begin
       Result := 0;
       if (lParam = WM_RBUTTONDOWN) and GetCursorPos(P) then
       begin
         SetForegroundWindow(Wnd);
         TrackPopupMenuEx(IconMenu, 0, P.X, P.Y, Wnd, nil);
         PostMessage(Wnd, WM_NULL, 0, 0)
       end
     end;
   WM_COMMAND:
     begin
       Result := 0;
       case wParam and $FFFF of
         0: begin
              if IconData.hIcon = SecondIcon then
                IconData.hIcon := WndClass.hIcon
              else
                IconData.hIcon := SecondIcon;
              Shell_NotifyIcon(NIM_MODIFY, @IconData)
            end;
         1: PostMessage(Wnd, WM_CLOSE, 0, 0)
       end
     end;
   else
     Result := DefWindowProc(Wnd, Msg, wParam, lParam)
 end
end;

{ -------------------------------------------------------------------------------------------- }

begin { main }
 with WndClass do
 begin
   cbSize := SizeOf(WndClass);
   Style := CS_HREDRAW or CS_VREDRAW ;
   lpfnWndProc := @WndFunc;
   hIcon := LoadIcon(0, IDI_EXCLAMATION);
   hCursor := LoadCursor(0, IDC_ARROW);
   hbrBackground := hBrush(COLOR_WINDOW);
   lpszMenuName := nil;
   lpszClassName := AppName;
   hIconSm := hIcon
 end;
 WndClass.hInstance := hInstance;
 if RegisterClassEx(WndClass) = 0 then
   Exit;
 WndHandle := CreateWindowEx(WS_EX_TOOLWINDOW, AppName, AppName, WS_OVERLAPPEDWINDOW,
   0, 0, 0, 0, 0, 0, hInstance, nil);
 if WndHandle = 0 then
   Exit;
 with IconData do
 begin
   cbSize := SizeOf(IconData);
   Wnd:= WndHandle;
   uID := 100;
   uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
   uCallbackMessage := WM_TRAYMSG;
   hIcon:= WndClass.hIcon;
   szTip := AppName
 end;
 if Shell_NotifyIcon(NIM_ADD, @IconData) then
 try
   IconMenu := CreatePopupMenu;
   if IconMenu 0 then
   try
     if AppendMenu(IconMenu, MF_STRING, 0, 'Ñìåíèòü èêîíêó') and
        AppendMenu(IconMenu, MF_STRING, 1, 'Âûõîä') then
     begin
       SecondIcon := LoadIcon(0, IDI_QUESTION);
       while GetMessage(Msg, 0, 0, 0) do
       begin
         TranslateMessage(Msg);
         DispatchMessage(Msg)
       end
     end
   finally
     DestroyMenu(IconMenu)
   end;
 finally
   Shell_NotifyIcon(NIM_DELETE, @IconData)
 end
end.

lobach   (2006-07-01 15:01:00) [4]

Может ссылку какую дадите, а то очень уж хочется разобраться...

Amoeba   (2006-06-29 12:00:00) [5]


> lobach ©   (29.06.06 11:17) [13]
> А что тада вообще этот API может?

Например, создавать стандартные контролы Windows, обертками над которыми является часть компонетов Delphi VCL. А также использоваться при написании кода своих компонентов, и еще много-где.

Плохиш   (2006-06-29 11:35:00) [6]


> lobach ©   (29.06.06 11:17) [13]
> А что тада вообще этот API может?

Выполнять инструкции программиста.

> Fay ©   (28.06.06 06:27) [11]
> 2 lobach ©   (28.06.06 5:16) [10]
> куда вставить?

Гусары! Молчатьььь!!!

lobach   (2006-06-29 11:17:00) [7]

А что тада вообще этот API может?

Amoeba   (2006-06-28 12:44:00) [8]


> lobach ©   (28.06.06 05:16) [10]
> Ну а как вставить например что-то типа Label?, или Timer?
>

Никак!

Вне VCL Label не существует (да и Windows о наличии в природе такого объекта ничего не знает и не может знать). Так что если пишешь на API, то напрочь забудь об Application, Form и всех компонентах Delphi. Скрестить ужа с ежом и получить при этом что-либо более путное, нежели кусок колючей проволоки, не получится.

Fay   (2006-06-28 06:27:00) [9]

2 lobach ©   (28.06.06 5:16) [10]
куда вставить?

lobach   (2006-06-28 05:16:00) [10]

Ну а как вставить например что-то типа Label?, или Timer?

Amoeba   (2006-06-23 10:27:00) [11]


> lobach ©   (23.06.06 05:22) [7]
>
> > Ваяй все целиком на API. Но в таком случае полностью забудь
>
> > про VCL, формы и компонеты Delphi, т.е. про все, что Delphi
>
> > предоставляет программисту
>
> Так вот я и хочу...


Тогда дерзай! Только вот интересно, сколько недель понадобится тебе как начинающему на написание программы несколько более сложной чем "Нello World!"?

tButton   (2006-06-23 07:20:00) [12]


> Так вот я и хочу...

похвально...

lobach   (2006-06-23 05:22:00) [13]


> Ваяй все целиком на API. Но в таком случае полностью забудь
> про VCL, формы и компонеты Delphi, т.е. про все, что Delphi
> предоставляет программисту

Так вот я и хочу...

Gero   (2006-06-23 01:48:00) [14]

> [4] lobach ©   (22.06.06 16:00)

На винчестере не помещается?

Amoeba   (2006-06-22 17:28:00) [15]


> lobach ©   (22.06.06 16:00) [4]
>
> > если ты имеешь в виду создание формы и дочернего компонента
>
>
> Да, на VCL конечно удобнее, но размер на нравится...
> А тут пример посмотрел проги на по 10 кб мелкие, а c VCL
> одна форма пустая 300 кб...

Ваяй все целиком на API. Но в таком случае полностью забудь про VCL, формы и компонеты Delphi, т.е. про все, что Delphi предоставляет программисту как RAD система программирования. Или, как вариант, посмотри в строну библиотеки KOL.

lobach   (2006-06-22 16:00:00) [16]


> если ты имеешь в виду создание формы и дочернего компонента

Да, на VCL конечно удобнее, но размер на нравится...
А тут пример посмотрел проги на по 10 кб мелкие, а c VCL одна форма пустая 300 кб...

grisme   (2006-06-22 14:05:00) [17]

Просто тебе надо начать изучение с лит-ры, потому что все там "устроено" не как в волшебно-прекрасно-легком VCL :) Рекоммендую: Дэн Эпплман "Win32 API и VB"...Фиг с ним, что VB, API он и в Африке API, зато там классно он описывает эпоху перехода с Win16 на Win32...;)

webpauk   (2006-06-22 11:53:00) [18]


> lobach ©   (22.06.06 10:16)  

если ты имеешь в виду создание формы и дочернего компонента (VCL Tedit)
смотри: http://www.xproger.mirgames.ru/files/art/winapi/winapi2.rar

Сергей М.   (2006-06-22 10:47:00) [19]

В WinAPI нет никаких "компонентов".

Наверх

Титульная страница Поиск, карта сайта Написать письмо