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

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

Свой пункт в меню в таскбаре. [D6, Win95/98, Win2k]

Insider ©   (2003-05-25 08:37:00) 

Как сделать так, чтобы по щелчку на "кнопке" приложения(своего) в таскбаре появлялось стандартное меню с дополнительным пунктом, добавленным этой же прогой?

---

Фуфлан   (2003-05-28 08:14:00) [1]

А я PHP"у изучаю. Бла! :)

---

Юрий Зотов   (2003-05-25 09:14:00) [2]

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject); // OnCreate
private
procedure MyItemClick;
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
end;

implementation

const
MyItemCmd = $4000;

procedure TForm1.FormCreate(Sender: TObject);
begin
if InsertMenu(GetSystemMenu(Application.Handle, False), 0, MF_BYPOSITION, MyItemCmd, "Click me!") then
Application.OnMessage := AppMessage
end;

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
Handled := (Msg.message = WM_SYSCOMMAND) and (Msg.wParam and $FFF0 = MyItemCmd);
if Handled then MyItemClick
end;

procedure TForm1.MyItemClick;
begin
ShowMessage("Thank you!")
end;

---

Наверх