Clomosy | Forum : İç içe for ile form nesnelerinin kullanımı https://www.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Tue, 14 Apr 2026 16:06:21 +0000 Mon, 24 Jul 2023 15:47:34 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://www.clomosy.com.tr/RSS_post_feed.asp?TID=516 <![CDATA[Clomosy | Forum]]> https://www.clomosy.com.tr/forum_images/logo.png https://www.clomosy.com.tr/ <![CDATA[İç içe for ile form nesnelerinin kullanımı : Merhaba,Aşağıda ki kodda çözümü...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=516&PID=544#544 Yazar: ztashia
Konu: 516
Gönderim Zamanı: 24 Temmuz 2023 Saat 15:47

Merhaba,

Aşağıda ki kodda çözümü bulabilirsiniz.

Yapılan Değişiklikler;
  • Butona tıklandığında hangi butona tıklandığını gösteren event eklendi.
  • Align hataları düzeltildi.

********************************************************************************
var
  MyForm:TclForm;
  satirLyt,sutunLyt:TClLayout;
  arkaPnl,p1:TCLPanel;
  alanBtn: TCLButton;
  i,j:Integer;
  procedure alanBtnOnClick;
  begin
    ShowMessage(TCLButton(MyForm.ClSender).Text);
  end;

begin
  MyForm := TclForm.Create(Self);
  
  arkaPnl:=MyForm.AddNewProPanel(MyForm,'arkaPnl');
  clComponent.SetupComponent(arkaPnl,'{"Align" : "Client","BackgroundColor":"#EEE8AA"}');
  
  p1:=MyForm.AddNewProPanel(arkaPnl,'p1');
  clComponent.SetupComponent(p1,'{"Align" : "Client","BackgroundColor":"#EEE8AA"}');
  
  for i:= 0 to 4 do begin 
    satirLyt:=MyForm.AddNewLayout(p1,'satirLyt'+IntToStr(i));
    satirLyt.Align:=alMostTop;
    for j:=0 to 4 do begin
      sutunLyt:=MyForm.AddNewLayout(satirLyt,'sutunLyt'+IntToStr(i)+IntToStr(j));
      sutunLyt.Align:=alMostleft;
      sutunLyt.Width:=30;
      sutunLyt.Height:=30;
      alanBtn:=MyForm.AddNewProButton(sutunLyt,'alanBtn'+IntToStr(i)+IntToStr(j),IntToStr(I)+' - '+IntToStr(j));
      clComponent.SetupComponent(alanBtn,'{"Align" : "client","Width" :50, "Height":50, "BorderColor":"#000000","BorderWidth":1, "BackgroundColor":"#ffffff"}');
      MyForm.AddNewEvent(alanBtn,tbeOnClick,'alanBtnOnClick');
    end;
  end;
  
 MyForm.Run;
end;
********************************************************************************

İyi Günler.
]]> Mon, 24 Jul 2023 15:47:34 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=516&PID=544#544 <![CDATA[İç içe for ile form nesnelerinin kullanımı : Merhaba,İç içe for döngüsü kullanarak...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=516&PID=543#543 Yazar: ubakgul
Konu: 516
Gönderim Zamanı: 24 Temmuz 2023 Saat 13:56

Merhaba,

İç içe for döngüsü kullanarak matris oluşturmaya çalışıyorum. Kodlar ve karşılaştığım sorunlar aşağıdaki gibidir. 
Matriste alt satıra geçmek için satirLyt kullandım. Sütunları oluşturmak için satirLyt içine sutunLyt ekledim. SutunLyt içine butonları ekliyorum. Resimlerde görüldüğü gibi sütunda ve satırda ilk değeri yazdıktan sonra son değerden başlayarak buton ekliyor. Bu sorun nasıl düzeltilebilir? 
sutunLyt ve alanBtn eklerken içine eklediğim alanların isimleri (satirLyt ve sutunLyt), i ve j değerleriyle birlikte değişebilirse sorunun çözülebileceğini düşünüyorum. Bu form değişkenlerinin i ve j ile birlikte kullanımı var mı, varsa nasıl kullanabilirim?

      

var
  MyForm:TclForm;
  satirLyt,sutunLyt:TClLayout;
  arkaPnl,p1:TCLPanel;
  alanBtn: TCLButton;
  i,j:Integer;

begin
  MyForm := TclForm.Create(Self);
  
  arkaPnl:=MyForm.AddNewProPanel(MyForm,'arkaPnl');
  clComponent.SetupComponent(arkaPnl,'{"Align" : "Client","BackgroundColor":"#EEE8AA"}');
  
  p1:=MyForm.AddNewProPanel(arkaPnl,'p1');
  clComponent.SetupComponent(p1,'{"Align" : "Client","BackgroundColor":"#EEE8AA"}');
  
  for i:= 0 to 4 do begin 
    satirLyt:=MyForm.AddNewLayout(p1,'satirLyt'+IntToStr(i));
    for j:=0 to 4 do begin
      sutunLyt:=MyForm.AddNewLayout(satirLyt,'sutunLyt'+IntToStr(i)+IntToStr(j));
      sutunLyt.Align:=alleft;
      sutunLyt.Width:=30;
      sutunLyt.Height:=30;
      alanBtn:=MyForm.AddNewProButton(sutunLyt,'alanBtn'+IntToStr(i)+IntToStr(j),IntToStr(j));
      clComponent.SetupComponent(alanBtn,'{"Align" : "left","Width" :50, "Height":50, "BorderColor":"#000000","BorderWidth":1, "BackgroundColor":"#ffffff"}');
    end;
  end;
  
 MyForm.Run;
end;
]]> Mon, 24 Jul 2023 13:56:27 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=516&PID=543#543