Jak mozna edytowac menu które pojawia sie jak na pasku zadań klikniemy prawym ?
0
0
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
public
procedure WndProcs(var Msg : TMsg; var Handled:Boolean);
end;
const MSG_OPROGRAMIE = 100;
procedure TForm1.WndProcs(var Msg : TMsg;var Handled:Boolean );
begin
if (Msg.message=WM_SYSCOMMAND) and (msg.wParam=MSG_OPROGRAMIE) then
ShowMessage('Program testowy');
Handled:=False;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
AppendMenu( GetSystemMenu( Application.Handle, FALSE ), MF_SEPARATOR, 0, ' ' );
AppendMenu( GetSystemMenu( Application.Handle, FALSE ), MF_STRING, MSG_OPROGRAMIE, 'O Programie...' );
Application.OnMessage:=WndProcs;
end;