her form araç çubuğunda gözüksün
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 47
- Kayıt: 26 Eki 2006 08:30
her form araç çubuğunda gözüksün
merhaba arkadaşlar. yaptığım programda kullanıcılar açılan bir form ekranda iken başka bir form daha açıp işlem yapayım tekrar önceki forma döneyim istiyor. bunun içinde her formun araç çubuğunda gözükmesi gerekiyor. bunu nasıl yapabiliriz. yada bu işlemi görecek başka bir uygulama fikri olan varsa lütfen yardımcı olsun. şimdiden çok teşekkür ederim.
-
- Üye
- Mesajlar: 47
- Kayıt: 26 Eki 2006 08:30
MEsala
Mesala visual basic de formun showintaskbar özelliği varmış. bu özellik true olan formlar ana menü haricinde taskbar yani araç çubuğunda gözüküyormuş... delphide böyle bir özellik bulamadım ben 

-
- Üye
- Mesajlar: 47
- Kayıt: 26 Eki 2006 08:30
sorunu çözdüm arkadaşlar :)
evet arkadaşlar sorunumu çözdüm bu yüzden sizinle de paylaşmak istedim.
projeye form1 ve form2 ekleyin
project optionsdan form2 i yi avaible form a taşıyın
form2 nin unitine aşağıdaki private özellikli procedureyi yazın;
private
Procedure CreateParams(var Params :TCreateParams); override;
public
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle OR WS_EX_APPWINDOW;
Params.WndParent := GetDesktopWindow;
end;
form1 de form2 yi açmak istediğiniz buton yada başka bileşene şu kodu yazın
ben button.click olayına yazdım
if not Assigned(Form2) then
Form2 := TForm2.Create(nil);
Form2.show;
projeye form1 ve form2 ekleyin
project optionsdan form2 i yi avaible form a taşıyın
form2 nin unitine aşağıdaki private özellikli procedureyi yazın;
private
Procedure CreateParams(var Params :TCreateParams); override;
public
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle OR WS_EX_APPWINDOW;
Params.WndParent := GetDesktopWindow;
end;
form1 de form2 yi açmak istediğiniz buton yada başka bileşene şu kodu yazın
ben button.click olayına yazdım
if not Assigned(Form2) then
Form2 := TForm2.Create(nil);
Form2.show;