Tüm Platformlar için Hızlı Uygulama Geliştirme Kitabı... Delphi
Ön Sipariş Talebinde Bulunan Üyelerimiz
Sipariş Talebinde Bulunan Üyelerimiz

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Butonları GroupBox İçine Dağıtma
#1
Arkadaşlar merhaba. Elimden geldiği kadar birilerine yardımcı olmaya ve bazı konularda da yardım almaya çalışıyorum. Bir problemim var. Bir türlü çözemediğim için bu konuda bilgili arkadaşlara sormak istedim. 

Bir form üzerine 1 tane SuiGroupbox ekledim. Ve içerisine runtime olarak butonlar oluşturuyorum. Buraya kadar sorun yok. Yapamadığım şey ise bu butonları en ve boy olarak bu Groupbox içerisine eşit olarak dağıtmak. Bu konuda yardımcı olabilir misiniz?

Kodlarım aşağıda mevcuttur.

procedure TForm1.CustomButtonClick(Sender: TObject);
var
SelectedItem:String;
i,m:integer;
NewButtonU: TButton;
//veri: TVeri;
begin
// ***********************************************
while  suiGroupBoxUrun.ControlCount > 0 do
suiGroupBoxUrun.Controls[0].Free;
// ***********************************************
SelectedItem:= TButton(Sender).caption;
with Form1.MyQueryAltUrunler do
begin
Close;
SQL.Clear;
SQL.Text := 'SELECT * FROM TABLE_PRODUCTS INNER JOIN TABLE_CATEGORY on TABLE_PRODUCTS.CatID = TABLE_CATEGORY.ID WHERE `Catname` = "' + SelectedItem + '" ';
Open;
i:=0;
while NOT(MyQueryAltUrunler.EOF) do begin
NewButtonU := TButton.create(self);
with NewButtonU do
begin

Height := ( suiGroupBoxUrun.Height - (MyQueryAltUrunler.RecordCount * 10)) div MyQueryAltUrunler.RecordCount ;
Width  := suiGroupBoxUrun.Width - 20;
Left   :=  (Width - Width )+ 10 ;
Top := (Top - Top) + 15 + (i * ((suiGroupBoxUrun.Height - (MyQueryAltUrunler.RecordCount * 5)) div MyQueryAltUrunler.RecordCount) );

Parent := suiGroupBoxUrun;
OnClick := CustomUButtonClick;
Caption := MyQueryAltUrunlerProdName.AsString;

NewButtonU.FVeri.SUrunFiyati := MyQueryAltUrunlerPrice.AsFloat;
NewButtonU.FVeri.SUrunName := MyQueryAltUrunlerProdName.AsString;
Tag := Integer(FVeri.SUrunId);
end;
Inc(i);
MyQueryAltUrunler.Next;
end;
Close;
end;
end;
Cevapla
#2
Eğer delphi son sürümlerden birini kullanıyorsanız Flowpanel kullanmanızı öneririm.

“Do. Or do not. There is no try.”
Cevapla
#3
Delphi 7 kullanıyorum onunla yapmam lazım hocam
Cevapla
#4
Yardımcı olabilecek kimse yokmudur
Cevapla
#5
Yukarıda size çok güzel yardımcı olunmuş.
@masteryoda FlowPanel'den bahsetmiş.
En azından Google'da "Delphi 7 Flowpanel" yazıp bir baksaydınız?

Ben sizin yerinize baktım:
Bende çıkan sonuçların BİRİNCİSİ:
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

Bu sayfada verilen linkte sizin çözüm hazır:
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
There's no place like 127.0.0.1
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  cxgrid cell içine combobox yerleşimi masteryoda 4 679 08-08-2017, Saat: 08:48
Son Yorum: meko
  Groupbox Runtime Resize yhackup 8 2.870 25-10-2016, Saat: 13:45
Son Yorum: SimaWB



Konuyu Okuyanlar: 1 Ziyaretçi