Çalışma anında Menu oluşturup eleman ekleme

[feinpus]

Ben harici bir unitte hazırladığım bir fonksiyonla içinde kullandığım forma Mainmenu ekleyip daha sonrada bu mainmenü ye eleman eklemek istiyorum.

Bu işlemi, çalıştığım form içine yazdığım bir fonksiyon ile başarabiliyorum ama fonksiyon harici bir dosyadan geldiğinde bunu yapamıyor. bu harici dosya(dll veya başka bi Unit dosyası)

Bir yardım Pls...

[mrmarman]

Selam.

- DLL'den çağrı yaptırırken, AOwner diye nitelendirilen menunun oluşturulacağı formu da parametre olarak verin, sorununuz çözülür.

Kod: Tümünü seç

// Örneğin Form1 formunuza menu Eklenecek

Function MenuEkle( Form:TForm; MenuAdi : String) Boolean;
Var
  Menu : TMenu;
begin
  Result := False;
  Try
    Menu := TMenu.Create(Form);
    Menu.Name := MenuAdi;
     // ... vs. Menuitem eklemeleri vs. 
  Finally
    Result := True
  end;
end;

// Formunuzdan çağırırken de...
If MenuEkle( Form1, 'AnaMenu' ) then ShowMessage('Menü Başarıyla Oluştu');

- Başarılar.