pagecontrol

[similyan]

form2 deki botunlarla form1 de bulunan pagecontrolün tabshhet lerini nasıl gösterebilirim.
yani form1 deki pagecontrolde 4 tane tabsheet var ben form2 ye 4 tane buton koyup form1deki pagecontrolün ilgili tabsheetini açmak istiyorum mümkünmü nasıl yapılabilir şimdiden teşekkürlerler saygılarımla...

[ulu coder]

Bahsettiğiniz bileşenleri bilmiyorum ama Form2'den Form1'e ulaşmak için;

Unit2'de implementation yazan yerin altına

Kod: Tümünü seç

 uses unit1;

yazın. Form1'dek ibileşenlere ulaşmak için, isminden önce Form1. yazın. Örnek;

Kod: Tümünü seç

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form1.Edit1.Text:='Bu yazı Form2'den geldi';
end;

[similyan]

bu kısmı tamam da form1 deki pagecOntrol de bulunan tabsheet lere ulaşmak sorun sağolasın....

[shadowmann]

Form1.Pagecontrol1.ActivePageIndex:=TabAdı.Pageindex;
Burda sorun nedir?

[HBV]

Slm.Form2 deki Buttonlarla Form1'deki TabSheet leri aşağıdaki kod'la gösterebilirsin? Form1 Uses'de Unit2; tanımla.

Kod: Tümünü seç

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
 Form1.Show;
 Form1.TabSheet1.Show;
end;

[similyan]

teşekkürler hallettim en son mesajdaki gibi yapınca oldu