|
unit sysmenu;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes,
Graphics, Controls, Forms, Dialogs, Menus;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure WinMsgHandler(var Msg : TMsg; var Handled : Boolean);
end;
var
Form1: TForm1;
const
MyItem = 100;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := WinMsgHandler;
AppendMenu(GetSystemMenu(Self.Handle, False),
MF_SEPARATOR, 0, '');
AppendMenu(GetSystemMenu(Self.Handle, False),
MF_BYPOSITION, MyItem, ''گزینه شما');
end;
procedure TForm1.WinMsgHandler(var Msg : TMsg;
var Handled : Boolean);
begin
if Msg.Message=WM_SYSCOMMAND then
if Msg.wParam = MyItem then
اینجا باید کد خود را وارد نمایید که من اینجا یک پیغام را نمایش میدهم.
ShowMessage('شما گزینه جدید را انتخاب کرده اید.');
end;
end.
ارسال شده توسط قادر امیری فرد در مورخه پنجشنبه دهم فروردین 1385 ساعت 0:22
[+]
|
|
کامپوننت تقویم فارسی برای دلفی(تست شده در دلفی 7)
