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;