Скачать: CL | DM;

Свой пункт в меню в таскбаре.   Найти похожие ветки 

← →
Insider ©   (2003-05-25 08:37) [0]

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

---

← →
Юрий Зотов ©   (2003-05-25 09:14) [1]

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;

---

← →
Фуфлан   (2003-05-28 08:14) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c