MDI formda açılan child formu MenuItem e atmak

[conari]

MDI formda açılan child formu MenuItem e atıp oradan tekrar çağırmak ile ilgili bir kod ipucu bulamadım.Bilgi ve alakası olanlar yardım ederse sevinirim.

[Battosai]

Menu ye eklemeyi mi yapamadın yoksa çaığırmayı mı....Yanılmıyorsam burda olacaktı örnekleri...

[conari]

Atma kodunu bulursam sanırım çağırabilirim.
Olmaz sa adres burası

Bir kod buldum üstünde çalışıyorum.

[Battosai]

Linkteki kodları al aşağıdaki menu kodlarıyla kullan...
http://delphi.about.com/od/objectpascal ... 42500a.htm

Kod: Tümünü seç

procedure TfMain.MenuClick(Sender:TObject);
begin
CreateChildForm(TMenuItem(Sender).Caption);
end;

MenuClick main menu veya popup menu ye sonradan ekleyeceğin menuler için click event ı çalıştırmanı sağlar...
Menulere yeni item eklemek içinde aşağıdaki kodları kullanabilrisin...

Kod: Tümünü seç

var
item:TMenuItem;
begin
     item:=TMenuItem.Create(PopupMenu1);
     item.Caption:='Başlık';
     item.OnClick:=MenuClick; //MenuClick event atadık...
     PopupMenu1.Items.Add(item);
 End;

[conari]

Battosi teşekkürler,
fakat bunları ben zaten yapıyorum.
Amacım Açılan child formu Menuitemlerdeki window MEnuitem altına eklemek form çok arkalarda kalırsa oradan çağırmak. form kapandığında buradan da silmek.

Şuan açılanı ekliyorum. Buradan tekrar çağırmayı ve kapandığında kaldırma ile uğraşacağım sanırım.

[sadettinpolat]

bu isi delphi zaten otomatik yapiyor. formun window diye bir ozelligi olmasi lazim. oraya main menu bilesenindeki bir menuyu gosterince gerisi otomatik olarak hallediliyor.

[Battosai]

Sorun ne ki o zaman..window altındaki menülere ekleme yapabiliyorsan çağırması veya mdichild form kapandığında silinmesi zor olmasa gerek...
Eğer açık formu create mi yoksa show mu yapacağını döngü ile belirleyebilirsin...

Kod: Tümünü seç

procedure TfMain.MenuClick(Sender:TObject);
begin
with MainForm do
Begin
for i:= 0 to MdiChildCount - 1 do
 Begin
      if   MDIChildren[i].Caption:=Tmenuitem(Sender).caption then
          Begin
            MDIChildren[i].Show; 
            exit;
           End;
  End else 
   CreateChildForm(TMenuItem(Sender).Caption);
End;
end;

Kodda dikkat edersen formların caption larını menulerin captioları ile eşitliyorum ekleme yaparken nasıl yapıyorsan o şekilde denkleştir...

[Battosai]

@sadettinpolat'ın dediği özellik WindowMenu olarak geçiyor properties de...incele istersen....

[conari]

bu isi delphi zaten otomatik yapiyor. formun window diye bir ozelligi olmasi lazim. oraya main menu bilesenindeki bir menuyu gosterince gerisi otomatik olarak hallediliyor.

WindowMenu kısmını diyorsanız orası ile beceremedim.
MainMenüdeki
Pencere isimli itemi seçtim ama açılan formlarımı orada göremedim.

[sadettinpolat]

main menude pencere diye bir item olustur ama icini bos birakma - olsa muhakkak birsey koy yoksa acilan child pencereleri eklemiyor.

[conari]

@Saadettin zaten vardı.
Pencere diye bir item, bunun altındada Subitemler var.
Dikey döşe, yataydöşe, basamakla falan filan ama yine eklemiyor meret

en son Jediden şüphelenmeye başlayacağım.

[conari]

bir örnek ekledim olmadı meret 3 tane form var. 2 si child.

[sadettinpolat]

child formlarin windowmenu ozelligine degil ana formun window menu ozelligine ekleyeceksin

[conari]

child formlarin windowmenu ozelligine degil ana formun window menu ozelligine ekleyeceksin

işte buna yuh derler.
kendime bir tane
@Sadettin ..