GridPanel adoquery listeleme

[erdogan_ozkaya]

Merhaba,

adoquery içinde bulunan listeyi grindpanel e nasıl aktarabilirim ?

aktardıktan sonra ise button clik olayını nasıl çalıştıracağım ?


Teşekkürler

Kod: Tümünü seç

procedure TForm1.CreateButtonGrid(const rowCount, colCount : integer);
var
  i : integer;
  aButton: TButton;
begin
  GridPanel1.RowCollection.BeginUpdate;
  GridPanel1.ColumnCollection.BeginUpdate;

  for i := 0 to -1 + GridPanel1.ControlCount do
    GridPanel1.Controls[0].Free;

  GridPanel1.RowCollection.Clear;
  GridPanel1.ColumnCollection.Clear;

  for i := 1 to rowCount do
    with GridPanel1.RowCollection.Add do
    begin
      SizeStyle := ssPercent;
      Value := 100 / rowCount; // butonların eşit olarak dağıtılması
    end;

  for i := 1 to colCount do
    with GridPanel1.ColumnCollection.Add do
    begin
      SizeStyle := ssPercent;
      Value := 100 / colCount; // butonların eşit olarak dağıtılması
    end;

  for i := 0 to -1 + rowCount * colCount do
  begin
    aButton := TButton.Create(self);
    aButton.Parent := GridPanel1; // sonraki boş hücreye
    aButton.Visible := true;
    aButton.Caption := 'Btn ' + IntToStr(i);
    aButton.Align := alClient;
    aButton.AlignWithMargins := true;
  end;

  GridPanel1.RowCollection.EndUpdate;
  GridPanel1.ColumnCollection.EndUpdate;
end;

[freeman35]

bu kodu nereden buldun gerçekten merak ettim
for i := 0 to -1 + GridPanel1.ControlCount do

84 den beri program yazarım daha bir kez bu mantıkla karşılaşmadım yanlış değil, her hangi bir yanlışlıkta yok. Ama ne bileyim bana arapça gibi kodu sağdan sola okumak gerek fikri veriyor

[erdogan_ozkaya]

https://zarko-gajic.iz.hr/quick-tip-dyn ... gridpanel/