TForm1.Create(application) taskbar sorun

[trolojik]

Merhaba

frm:=TForm.Create(application) ile yarattığım yeni form başlat çubuğunda form1 veya normal bir application gibi popup menü çıkartmıyor
bu popupmenüden kastım herhangi bir programı hani taskbardan sağ tıklarsınız Önceki boyut , Taşı , boyut, simge durumunda küçült , ekran kapla , Kapat diye çıkan menü çıkmıyor

Bunun çıkması için ne yapmam gerekiyor ?

[true_false]

formstyle mdichild ise çıkmaması çok normal ilk önce formunuzun formstyle özelliğini fsnormal olarak ayarlayın ve create ederken

Kod: Tümünü seç

formadi.show;

olarak bir deneyin

[trolojik]

Formstyle zaten fsnormal halinde.

Programda 2 adet temel form var
ben TForm2 yi frm:=TForm2.Create(application) şeklinde aynı özelliklere ait bir form olarak yaratıyorum fakat dediğim gibi taskbardan mouse ile sol tuşa bastığımda herhangi bir işlev görmüyor..

[trolojik]

anlatmak istediğim şeyi anladınızmı acaba :s

[true_false]

type tanımlama kısmında
formun clasını şu şekilde değiştirdinmi?

Kod: Tümünü seç

 TForm = class(Tsenin_formun)

[trolojik]

hıhım oralarda problem yok

[trolojik]

fikri olan yokmu arkadaşlar

[sabanakman]

BorderStyle özelliğini biraz kurcala. Mesela bsSizeble yap.

[trolojik]

borderstyle (çerçeve) ile alakası
çünkü form üzerinde sağ tıklarken menü açılıyor
sadece taskbarda tıkladığımda bahsettiğim windowsun standart menüsü açılmıyor her formda çıkan sağ tuşa basıldığında taskbardaki kapat önceki boyut vs

[trolojik]

Eksik yazdığım bir şey var
Form2 yi create ettiğimde form2 içinde createparams isminde bir prosedür var bu prosedür taskbarda form isminin gözükmesini sağlıyor sanırım orada bir eksiklik var

procedure tform2.createparams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
begin
ExStyle := ExStyle or WS_EX_APPWINDOW;
WndParent := GetDesktopWindow;
end;
end;

[serkan]

evet prosedürde yanlışlık var ama sana nasıl düzelteceğini söylersem kötülük yaparım.Çünkü yapmk istediğin işlem düşündüğün kadar sağlıklı çalışmıyor.Karşına bir çok görsel ve teknik sorun çıkacak çünkü ben kullandım ve tekrar değiştirdim.Şimdi şöyle bir pencere sistemi kullanıyorum gayette memnun kullanıcılar.LKS2 (For windows) eğer incelediysen ondaki gibi kendi taskbarını yap program içerisinde minimize olan formlar programın alt kısmındaki barda gösterilsin. Bunun için hazır bileşende var ama ben kuramadığım için bir toolbar koyarak kendim yaptım..

Aşağıda kendi projemde kullandığım sistemin bir resmi var tavsiye ederim.

http://www.tekkalem.com.tr/taskbar.html

[trolojik]

Resimi inceledim gerçekten çok hoş ve kullanılabilir birşey lazım olacaktır mutlaka ama şu safhada aradığım şey bu değil. yinede teşekkür ederim

[guduknecmi]

serkan bey kullandığınız sistem çok hoş görünüyor, ben de kendi programlarımda kullanmak isterim, Mahsuru yoksa nasıl yapabileceğimi yazabilirmisiniz?

[serkan]

selam ben TMS Componentleri kullandığım için görsellik daha hoş olabiliyor.Herkesin bakabilmesi için delphinin standart componentlerin 3 formdan oluşan bir örnek yaptım incelemeniz için tabi kodları ile birlikte.
MDICHILD formların onshow yordamında ana formdaki toolbar üzerinde button oluşturuluyor MDIChild Form kapandığında button siliniyor.Birde MDIChild formlarda bir prosedür var bu prosedürde form minimize edildiğinde gizlenmesini sağlıyor. Örnek kodları aşağıdaki adresten indirebilirsin.

http://www.tekkalem.com.tr/files/taskbar_DEMO.zip

[trolojik]

Arkadaşlar sorduğum soru bu değil.. ve mdichild form kullanmadım standart form var..