| Tabsheet içinde form açmak (Tabbed Form)
Kod: Kodu kopyalamak için üzerine çift tıklayın! procedure TForm1.Button1Click(Sender: TObject);
var frm:TForm2;
begin
// 1) 2. bir form oluşturup uses kısmına bu formun unit'ini ekliyoruz.
// 2) Ana forma bir adet page control nesnesi ve bir buton ekliyoruz.
// 3) Pagecontrol nesnesinede bir adet tabsheet (yeni bir sayfa) oluşturuyoruz
//Butona ekleyecek olduğumuz kod
frm:=TForm2.Create(self);
frm.Parent:=TabSheet1;
frm.Show;
end;
__________________ SusKun ve Sessiz Mürekkep...
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
|