NEBIOGLU.COM

Delphi MDI Application WindowMenu

Delphi'de uygulamaya ait açık pencerelerin listesini kolayca görebilir ve bu pencereler arasında geçiş yapabilirsiniz. Bunun için aşağıdaki adımları izlemeniz yeterlidir.
- Yeni bir uygulama oluşturun.
- Ana formun tipini (FormStyle) fsMDIForm yapın.
- İkinci bir form oluşturun ve tipini (FormStyle) fsMDIChild yapın.
- "Project Options" dan Form2 yi "Available Forms" alanına taşıyın.
- Ana formdan 2. formu use edin (Alt+F11).
- Ana forma bir MainMenu component koyun ve Pencere diye bir menu ekleyin.
- Pencere Menusune bir altmenu ekleyin.
- Ana formun "WindowMenu" özelliğini Pencere yapın.
- Ana forma bir button koyun ve aşağıdaki örnek kodu ekleyin.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := TForm2.Create(self);
  Form2.Show;
end;

- Programı çalıştırın ve buttona tıklayın. Form2 açılacaktır ve aynı zamanda açılan form pencere menusune eklenecektir.

Not: Örnek kodlar Delphi 6 ile yazılmıştır.

Mehmet Nebioğlu