PageControl'da bağımsız sayfa boyutu ayarlanabilir mi?

[OnderTastan]

Merhaba

PageControl nesnesine birden fazla sayfa konularak her sayfanın boyutu kendi içinde bağımsız ayarlanabilir mi? Nasıl? Teşekkür ederim.

[bobasturk]

merhaba,

pagecontrol boyutlarını tab geçişlerinde içinde bulunan bileşenlerin durumuna göre boyutunu ayarlatabilirsin. yani her tab geçişte pagecontrol boyutları değişecek. tabiki formunda boyutunu değiştirmek gerekecek veya formu tam sayfa açıp pagecontrolun ortada olmasını sağlamak gerekecek. sadece bir fikir.

kolay gelsin

[OnderTastan]

Öncelikle ilgine teşekkür ederim. Ama nasıl yapacağım konusunda yardımcı olursan sevinirim.

[bobasturk]

merhaba,

şöyle bir örnek vereyim. bir tane formum vardı ve bu formda kullanıcı girişi yaptırıyordum. listenin sıralandığı gridi formun veri giriş alanının altına koymuştum ve gizle ve göster butonları yerleştirdim. formun boyutunu girid görülürken bir kenara yazdım. birde görünmezken olan boyutunu yazdım bir kenara. sonra gizle göster butonlarına

Kod: Tümünü seç

gösterbutton1.click olayına

form1.hight:=100;

gizlebutton2.click olayına

form1.hight:=50;

şeklinde bir (bu değerler örnektir) yazdım ve ayrıca bu komutların sonuna form pozisyonunu mainformcenter komutu verince form gizle ve göster durumuna göre boyu uzayıp kısalıyordu. sizinde buna benzer bir yöntemle pagecontrol boyutunu içindeki edit veya group box boylarına göre büyütüp küçültmeniz yapılabilir.

lafı çok uzattım sanırım.

Kod: Tümünü seç

tabsheet1 in onenter olayına

pagecontrol1.hight:=100;
pagecontrol1.wiht:=50;

gibi değerlerle tabsheet in içerik durumuna göre boyutlar ayarlanabilir.

kolay gelsin.

[bobasturk]

merhaba,

öncelikle yanlış yönlendirdiğim için özür dilerim.
şöyle bir deneme yaptım ve tabsheet in onshow event inde yapılırsa oluyor.

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, JvExComCtrls, JvComCtrls;

type
  TForm1 = class(TForm)
    JvPageControl1: TJvPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    procedure TabSheet1Show(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.TabSheet1Show(Sender: TObject);
begin
  jvpagecontrol1.Height:=400;
  jvpagecontrol1.Width:=200;
end;

procedure TForm1.TabSheet2Show(Sender: TObject);
begin
  jvpagecontrol1.Height:=500;
  jvpagecontrol1.Width:=300;
end;

procedure TForm1.TabSheet3Show(Sender: TObject);
begin
  jvpagecontrol1.Height:=600;
  jvpagecontrol1.Width:=400;
end;

end.

bir dene istersen. boyut ölçülerini tab ların içindeki bileşenlere göre senin vermen gerekiyor. kolay gelsin. kaydırma çubuğunun olmaması içinde anchor özelliklerinden faydalanabilirsin.

[OnderTastan]

İlgine gerçekten çok teşekkür ederim. Akşam eve gittiğimde deneyeceğim. Umarım istediğim gibidir.