programın başlat çubuğu üstündeki yerine sağ tıklama
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
programın başlat çubuğu üstündeki yerine sağ tıklama
hani açık programlar başlat çubuğunda sıralanıyor ya. birisine sağ tıkladığımızda kapat, boyut, taşı vs vs çıkıyor mesela, ben kendiminkine tıklandığında başka şeylerin yazmasını nasıl ayarlayabilirim?
procedure TForm1.FormCreate(Sender: TObject);
begin
halt;
end;
begin
halt;
end;
Re: programın başlat çubuğu üstündeki yerine sağ tıklama
Menüyü ekleme bölümü
forma bir buton koy ve clik olayına aşağıdaki kodu ekle
menü click olayı
forma bir buton koy ve clik olayına aşağıdaki kodu ekle
Kod: Tümünü seç
const
SC_MyMenuItem1 = WM_USER + 1;
...
...
...
...
...
...
procedure TForm1.btnAddClick(Sender: TObject) ;
const
sMyMenuCaption1 = 'Yeni menü itemim';
var
SysMenu : HMenu;
begin
{Mevcut menüyü al}
SysMenu := GetSystemMenu(Handle, FALSE) ;
{Araya bir seperator ekle}
AppendMenu(SysMenu, MF_SEPARATOR, 0, '') ;
{İstenilen itemi ekle}
AppendMenu(SysMenu, MF_STRING, SC_MyMenuItem1, sMyMenuCaption1) ;
end;
Kod: Tümünü seç
private // form class
procedure WMSysCommand(var Msg: TWMSysCommand) ; message WM_SYSCOMMAND;
...
...
...
...
...
...
procedure TForm1.WMSysCommand(var Msg : TWMSysCommand) ;
begin
if Msg.CmdType = SC_MyMenuItem1 then
{eğer benim butona tıklanmışsa}
ShowMessage('Elleşme gız gıdıklanıyom!') ;
else
inherited; // değilse kendi işine bak :)
end; 
Re: programın başlat çubuğu üstündeki yerine sağ tıklama
system menusune ilave ettiğiniz zaman çıkması lazım.
kodları şu an hatırlamıyorum ama sitede olması lazım.
kolay gelsin.
kodları şu an hatırlamıyorum ama sitede olması lazım.
kolay gelsin.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Re: programın başlat çubuğu üstündeki yerine sağ tıklama
[Error] Unit1.pas(45): Undeclared identifier: 'SC_MyMenuItem1' hatası alıyorum
procedure TForm1.FormCreate(Sender: TObject);
begin
halt;
end;
begin
halt;
end;
Re: programın başlat çubuğu üstündeki yerine sağ tıklama
tamam hallettim de ben başlat çubuğundaki programın üstüne sağ tıkladıgındaki menüden bahsediyorum bu programın title nin solundaki icon a bastıgımızda cıkan menüyü deistirdi.
procedure TForm1.FormCreate(Sender: TObject);
begin
halt;
end;
begin
halt;
end;
Re: programın başlat çubuğu üstündeki yerine sağ tıklama
yok mu yardım edicek olan pf...
procedure TForm1.FormCreate(Sender: TObject);
begin
halt;
end;
begin
halt;
end;
Re: programın başlat çubuğu üstündeki yerine sağ tıklama
CemErgun yazdı:tamam hallettim de ben başlat çubuğundaki programın üstüne sağ tıkladıgındaki menüden bahsediyorum bu programın title nin solundaki icon a bastıgımızda cıkan menüyü deistirdi.
başlat çubuğundaki programdan kastettiğiniz açık programların olduğu bar ise verdiğim kod bu işe yarıyor. ziraa title solundaki icon ile açık pencerelerin olduğu bar menüsü aynıdır. Yok kastettiğiniz. Başlat menüsündeki programlar, donatılar vs.vs. itemleri sağ tıklama ise aklıma ilk gelen şey windows mesajlarını işlemek.
Re: programın başlat çubuğu üstündeki yerine sağ tıklama
bak.. resmlerle göstereyim ozaman ben sana..
şimdi bu resim o icon a tıkladıgımızda çıkan menü.
7 tane seçenek var benim ekledigimle beraber.
buda bardaki yere sağ tıkladığımızda çıkan menü.
şimdi anlatabildim mi? olmuyor..
şimdi bu resim o icon a tıkladıgımızda çıkan menü.
7 tane seçenek var benim ekledigimle beraber.
buda bardaki yere sağ tıkladığımızda çıkan menü.
şimdi anlatabildim mi? olmuyor..
procedure TForm1.FormCreate(Sender: TObject);
begin
halt;
end;
begin
halt;
end;
Re: programın başlat çubuğu üstündeki yerine sağ tıklama
bukadar ayrıntılı açıkladım yok mu yardımcı olacak?
procedure TForm1.FormCreate(Sender: TObject);
begin
halt;
end;
begin
halt;
end;
Re: programın başlat çubuğu üstündeki yerine sağ tıklama
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Re: programın başlat çubuğu üstündeki yerine sağ tıklama
evet buydu teşekkürkler.
procedure TForm1.FormCreate(Sender: TObject);
begin
halt;
end;
begin
halt;
end;