Konuyu Değerlendir
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5
Pagecontrol içerisine diğer formlar nasıl eklenir?
#1
Arkadaşlar diyelim 5 adet form oluşturdum. diğer 4 adet formu 1. form üzerindeki pagecontrol nesnesi içerisinde nasıl ekleyebilirim?
Rolleyes

Çözümü buldum. belki başka birininde işine yarar diye burada paylaşıyorum.


Kod:
uses ...unit2,unit3...

procedure TForm1.FormCreate(Sender: TObject);
begin
if not Assigned(Form2) then
  Form2 := TForm2.Create(TabSheet1);
Form2.Align := alClient;
Form2.Parent := TabSheet1;
Form2.BorderStyle := bsNone;
Form2.Show;

if not Assigned(Form3) then
  Form3 := TForm3.Create(TabSheet2);
Form3.Align := alClient;
Form3.Parent := TabSheet2;
Form3.BorderStyle := bsNone;
Form3.Show;
...
end;
Bul
Alıntı
#2
Ben diger formda bilesenleri bur panelin uzerine koyuyorum. Tasimak gerekince panelin parentini form2 yerine tabcontrol yapiyorum. Buda aklinizda bulunsun
Bul
Alıntı
#3
(08-18-2017, 06:38 PM)admin demiş ki: Ben diger formda bilesenleri bur panelin uzerine koyuyorum. Tasimak gerekince panelin parentini form2 yerine tabcontrol yapiyorum. Buda aklinizda bulunsun

Bu konuda küçük bir örnek paylaşırsanız sevinirim.
Bul
Alıntı
Topic Options
Foruma Git:




Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi