Merhaba.
@
ozcanm üstadım, TCircle'in owner eğer form olsaydı bu şekilde sonuç alınabilirdi. Burada TCircle FORM değil de Application altında create edilmiş...
daire := TCircle.Create(Application);
daire.Parent := Fgrid4x4;
Diğer yandan bu Application değil de self olsaydı @
ozcanm sizin dediğiniz şekilde olurdu...
daire := TCircle.Create(self);
daire.Parent := Fgrid4x4;
* ComponentCount sadece bileşen tarafından sahip olduklarının (owner oldukları) listesini getirecektir.
Burada aramak için OWNER eğer Application ise o zaman ComponentCount değil Application.ComponentCount olmalıydı. Components[i] yerine de Application.Components[i].....
Bu durumda da @
savasabd belirttiği gibi onun child seviyesindekileri görmek için bir tane daha iç döngü açıp, elde edilen her Components[i]'nin ControlCount ile adedi bulunup Controls[j] gibisinden aramak veya TFMXObject şeklinde yürüyüp direkt child objeckt üzerine yoğunlaşmak sonuç döndürür.
- Başlığı / sorunu / sorunsalı anlayamayanlar olabilir diye yukarıdaki örneği ortaya çıkarak bir senaryo aşağıda verilmiştir.
- Boş bir FMX proje oluşturup, forma sadece ve sadece bir button koyup aşağıdaki kodu yapıştırın. Aşağıda birebir verilen örnek üzerinden bir yaklaşımı göreceksiniz. Burada amaç sonuç
alamadığımızı ve de neyi alabildiğimizi test etmek.
- CircleIslemleri procedure başına // koyarak comment altına alıp aşağıdaki exit'i kaldırınca bir de diğer türlüsünü görebilirsiniz.
Uses FMX.Objects;
Const
Resimsayisi = 16;
Rows = 4;
Cols = 4;
var
Fgrid4x4 : TGridPanelLayout;
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
daire : TCircle;
begin
// Önce yoksa bir layout kurgulayalım...
PanelLayoutOlustur();
for I := 1 to Resimsayisi do
begin
Fgrid4x4.BeginUpdate;
daire := TCircle.Create(Application); // self olmadığından ComponentCount ile çıkmaz. Application.ComponentCount ile olacaktır.
daire.Parent := Fgrid4x4;
try
daire.BeginUpdate;
daire.Align := TAlignLayout.Client;
daire.Fill.Kind := TBrushKind.Bitmap;// bkBitmap;
daire.Fill.Bitmap.WrapMode := TWrapMode.TileStretch;
daire.Tag := 0;
daire.Name := 'Daire_4_'+IntToStr(I);
daire.EndUpdate;
except on E: Exception do
// ShowHintFrame(frmana,'Hata:'+e.Message);
end;
Fgrid4x4.EndUpdate;
end;
Circle_islemleri();
Exit;
for I := 0 to Fgrid4x4.ControlsCount -1 do
begin
if( Fgrid4x4.Controls[I] is TCircle ) then
begin
Showmessage( Fgrid4x4.Controls[I].Name );
end;
end;
end;
procedure TForm1.Circle_islemleri;
var
i: Integer;
begin
for i := ComponentCount - 1 downto 0 do
begin
if (Components[i] is TCircle) and (TCircle(Components[i]).Parent = Fgrid4x4)
then
Begin
Showmessage('Bulduk'); // buraya bu örnekte hiç gelmeyecek....
TCircle(Components[i]).Name := 'AAA';
TCircle(Components[i]).Tag := 0;
// işlemler.
// işlemler.
// işlemler.
end else begin
Showmessage( Components[i].Name );
end;
end;
end;
procedure TForm1.PanelLayoutOlustur();
var
i : Integer;
begin
// Eğer yoksa örnek TGridLayout oluştur...
if NOT Assigned( Fgrid4x4 ) then begin
Fgrid4x4 := TGridPanelLayout.Create(self);
Fgrid4x4.Parent := self;
Fgrid4x4.Name := 'grid4x4';
Fgrid4x4.Position.X := 10;
Fgrid4x4.Position.Y := 100;
Fgrid4x4.Width := 300;
Fgrid4x4.Height := 300;
while Fgrid4x4.RowCollection.Count < Rows do
Fgrid4x4.RowCollection.Add;
while Fgrid4x4.ColumnCollection.Count < Cols do
Fgrid4x4.ColumnCollection.Add;
repeat
for i := 0 to Pred(Rows) do begin
Fgrid4x4.RowCollection.Items[i].SizeStyle := TGridPanelLayout.TSizeStyle.Percent;
Fgrid4x4.RowCollection.Items[i].Value := 100 / Rows;
end;
for i := 0 to Pred(Cols) do begin
Fgrid4x4.ColumnCollection.Items[i].SizeStyle := TGridPanelLayout.TSizeStyle.Percent;
Fgrid4x4.ColumnCollection.Items[i].Value := 100 / Cols;
end;
until ( Fgrid4x4.RowCollection.Items[0].Value <= 100 / Rows )
or( Fgrid4x4.ColumnCollection.Items[0].Value <= 100 / Cols ) ;
end;
end;
.Muharrem Bey'in dediği yol bence de en mantıklısı ama illa Muharrem Bey'in dediği yoldan gitmeyecekseniz şöyle bir yoldan ilerleyebilirsiniz:
