چگونه یک گزینه به سیستم منوی برنامه اضافه کنیم

[Lord]

لطفا مرا راهنمایی کنید.
چگونه یک گزینه به سیستم منوی برنامه اضافه کنیم

[یعقوب]

سلام
ببخشید...اصلاً منظورتون رو متوجه نمی شم....!
لطفاً واضح تر توضیح بدین.

[net_ved]

شاید منظورتون این بوده...چطوری یه برنامرو به منوی سیستم اضافه کنیم؟

[مهدی کرامتی]

امیدوارم منظورتون همین باشه:

procedure TForm1.Button1Click(Sender: TObject);
var HelpMenu:TMenuItem;
begin
HelpMenu := TMenuItem.Create(MainMenu1);
HelpMenu.Caption := 'Help';
MainMenu1.Items.Add(HelpMenu);
end;

[vcldeveloper]

فکر کنم منظورشون همون System Menu (منویی که گزینه هایی مثل Minimize, Maximaze و ... در اون قرار دارند) باشه.
برای اضافه کردن گزینه ای به System Menu می تونید از کدی شبیه کد زیر استفاده کنید.
* توضیحات رو در داخل کد گذاشتم.



unit Unit1;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

const
CustomSubItem = 100;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure WinMsgHandler(var Msg: TMsg; var Handled: Boolean);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
{$R *.dfm}

{ TForm1 }
procedure TForm1.WinMsgHandler(var Msg: TMsg; var Handled: Boolean);
begin
//if the message is from system menu AND my cutsom menu item is clicked
if (Msg.message = WM_SYSCOMMAND) and
(Msg.wParam = CustomSubItem) then
ShowMessage('This is a custom menu item');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
SystemMenu: THandle;
begin
//Set application's message handler to my cutom handler
Application.OnMessage := WinMsgHandler;
//Get handle of Sytem Menu,
//You set the second parameter to TRUE to set default menu back
SystemMenu := GetSystemMenu(Application.Handle, False);
//Add a separator
AppendMenu(SystemMenu, MF_SEPARATOR, 0, '');
//Add your sub item
AppendMenu(SystemMenu, MF_BYPOSITION, CustomSubItem, '&A Custom Item');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GetSystemMenu(Application.Handle, True);
end;

end.

[Lord]

از آقای علی کشاورز به خاطر جوابشون ممنونم

[مهدی کرامتی]

از وقتی که برای پاسخ دادن به شما صرف کردم استفاده های بهتری هم میتونستم بکنم. حیف شد.

[esi022]

به همین دلیل پست من پاک شد؟ :(

[مهدی کرامتی]

خیر، به دلیل آف تاپیک بودن پاک شد.

[esi022]

آف تاپیک؟ :گیج:

[vcldeveloper]

آف تاپیک؟
الان هم دوباره داره میره به سمت آف تاپیک شدن :wink: :evil2:

[esi022]

علی کشاورز سلام
آقا من خنگ !!!!!
میشه بگید منظورتون از آف تاپیک چیه؟

[vcldeveloper]

آف تاپیک به مطالبی گفته میشه که ربطی به تاپیکی که مطلب در اون بیان میشه ندارند. مثلا این تاپیک درباره منوی سیستم هست، من و شما داریم درباره "آف تاپیک"،‌ آف تاپیک میزنیم!
:موفق:

[esi022]

افتاد :تشویق: متشکرم - دوست دارم علی کشاورز
اینم آف بود :mrgreen:
ولی بعضی وقتها نمیشه - چون کاربرا نمیگن چی میخوان
یعنی بد توضیح میدن