Toplam 1 adet sonuctan sayfa basi 1 ile 1 arasi kadar sonuc gösteriliyor
-
05.Ocak.2015, 22:39 #1
DELPHI / Sys Menulerinin Çalistirilmasi-Silinmesi Nasıl Olur?
Kod:
...
const
SC_MyMenuItem1 = WM_USER + 1;
...
procedure TForm1.btnAddClick(Sender: TObject);
const
sMyMenuCaption1='My n&ew system menu item';
var
SysMenu : HMenu;
begin
{Get system menu}
SysMenu := GetSystemMenu(Handle, FALSE);
{Add a seperator bar to main form-form1}
AppendMenu(SysMenu, MF_SEPARATOR, 0, '');
{add our menu}
AppendMenu(SysMenu, MF_STRING,
SC_MyMenuItem1, sMyMenuCaption1);
end;
...
private
procedure WMSysCommand(var Msg: TWMSysCommand);
message WM_SYSCOMMAND;
...
procedure TForm1.WMSysCommand(var Msg:TWMSysCommand);
begin
if Msg.CmdType = SC_MyMenuItem1 then begin
{some code to handle my menu item:}
ShowMessage('My system menu 1 clicked!');
end else
inherited;
end;
procedure TForm1.btnDeleteClick(Sender: TObject);
const
MnuCommand = SC_MOVE;
var
SysMenu : HMenu;
begin
SysMenu := GetSystemMenu(Handle, FALSE);
DeleteMenu(SysMenu, MnuCommand, MF_BYCOMMAND);
end;
procedure TForm1.btnChangeClick(Sender: TObject);
const
strCLOSE = '&Close This Window';
var
SysMenu : HMenu;
MenuItemInfo : TMenuItemInfo;
begin
SysMenu := GetSystemMenu(Handle, FALSE);
FillChar(MenuItemInfo,SizeOf(TM enuItemInfo), #0);
MenuItemInfo.cbSize := SizeOf(TMenuItemInfo);
MenuItemInfo.fMask := MIIM_TYPE or
MIIM_ID or MIIM_STATE;
MenuItemInfo.fType := MFT_STRING;
MenuItemInfo.wId := SC_CLOSE;
MenuItemInfo.dwTypeData := strCLOSE;
MenuItemInfo.cch := Length(strCLOSE);
SetMenuItemInfo(SysMenu, SC_CLOSE,
FALSE, MenuItemInfo);
end;
Konu Bilgileri
Bu Konuya Gözatan Kullanıcılar
Şu anda 1 kullanıcı bu konuyu görüntülüyor. (0 kayıtlı ve 1 misafir)
Benzer Konular
-
Delphi'de Font Seçimi" Penceresini Ekrana Nasıl Çıkarırsınız?
Konu Sahibi donjuanhose81 Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 19.Mart.2015, 22:07 -
Delphi'de Silinmis Dosyalar Nasıl Gösterilir?
Konu Sahibi donjuanhose81 Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 19.Mart.2015, 21:45 -
Delphi'de Dosya Kopyalama Nasıl Olur?
Konu Sahibi megatron Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 05.Ocak.2015, 22:36 -
Delphi'de Analog Saat Yapımı Nasıl Olur?
Konu Sahibi megatron Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 05.Ocak.2015, 22:28 -
Delphi'de Kayıtlı Sürücüleri Nasıl Bulurusnuz?
Konu Sahibi donjuanhose81 Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 02.Ocak.2015, 16:30
ForeverAutoHits Ücretsiz, Sınırsız...
Dün, 13:32 in Hit Kaynakları