Mega Code Archive
[] Systemmenuye eleman ekleme, silme
<![CDATA[
.......
public
{ Public declarations }
procedure WMSysCommand(var Msg: TWMSysCommand);message WM_SYSCOMMAND;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType =1009 then //program hakkındaya tıklandı ise
begin
application.Title:='Hakkinda';
showmessage(' SYSTEMMENÜ PROGRAMİ '+#13+#10+#13+
'Yazan:'+#9+ 'Gazi ÇOPURBAŞ'#13+#10+
'Tarih:'+#9+ '4 Şubat 2002'+#13+#10+
'Email:'#9+'Cupurgazi@hotmail.com');
end;
DefaultHandler(Msg);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
asd:pchar;
hwin:thandle;
hwin2:thandle;
begin
asd:='Program Hakkında';
hwin:=form1.handle; //forma handle al
hwin2:=GetSystemMenu(hwin,false); // system menüye handle al
DeleteMenu(hwin2, sC_RESTORE, MF_BYCOMMAND );//önceki boyut elemanınısil
DeleteMenu(hwin2, SC_MAXIMIZE, MF_BYCOMMAND);//ekranı kapla elemanınısil
DeleteMenu(hwin2,SC_SIZE, MF_BYCOMMAND); //boyut elemanını sil
AppendMenuA(hwin2,MF_STRING,1009,asd);//program hakkında isminde eleman ekle
DrawMenuBar(hWin); //menüyü tekrar çiz
end;
end.
//SonNotlar:SistemMenuye eleman ekleme ,silme formun caption alanındaki butonları
//görselolarak etkilememekle beraber görevlerini etkilemektedir.
]]>