Çalışma zamanı oluşturulan bileşenleri kullanmak.

[palandoken]

Merhaba arkadaşlar,
bir soru sormak istiyorum.

for döngüsü ile program içerisinden i kadar buton create ediyorum.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
Var
  i : integer ;
  Buton : TButton ;
begin
   ListBox1.Items.Clear ;
   for i := 1 to StrToInt(Edit1.Text) do
      begin
         buton := TButton.Create(Self);
         Buton.Parent := Form1 ;
         buton.Name := 'A'+IntToStr(i) ;
         ListBox1.Items.Add('A'+IntToStr(i)) ;
      end;
end;

Bu butonların name'lerini " 'A'+IntToStr(i) " şeklinde veriyor ve Listbox'a listeliyorum.

Bundan sonra butonların ismi A1,A2,A3 vs.şeklinde oluyorya ben bu butonları çalışma zamanı nasıl kullanabilirim.Mesela A1 butonunun caption'ını,Left'ini vs. nasıl değiştirebilirim.

Teşekkürler.

[ALUCARD]

Kod: Tümünü seç

 ListBox1.Items.Clear ;
   for i := 1 to StrToInt(Edit1.Text) do
      begin
         buton := TButton.Create(Self);
         Buton.Parent := Form1 ;
         buton.Name := 'A'+IntToStr(i) ;
         buton.caption:='deneme'
         buton.left:=30;
         ListBox1.Items.Add('A'+IntToStr(i)) ;
      end; 

[palandoken]

ALUCARD beni yanlış anladın kardeş.Butonun Caption'ını ,Left'ini,Top'unu vs. butonun bütün özelliklerini create ederken ayarlayabilirim.O sorun değil.Sorun şu:

Diyelim Formda iki tane Buton var.Button1'in click'ine yukarıdaki kodu yazdın ve 10 tane yeni buton create ettin.Create ettiğin bu butonların özelliklerini örneğin caption'ını Button2'nin click'inde nasıl değiştirirsin.Create ettiğin butonların name'leri A1,A2... vs olacak ama bu butonlara
A1.Caption := 'Deneme' ; yazarak ulaşamazsın.Sorun bu.Bu butonlara nasıl ulaşırsın.

[lazio]

Sorunu tam olarak bende anlayamadım..
Anladığım kadarıyla create ettiğin buttonlara onclick vs gibi olaylar eklemek istiyorsun ve button a nesne olarak erişmek istiyorsun..
Aşağaıdaki kod ile bu işlemleri yapabilirsin..

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  buton : TButton;
begin
  for i := 1 to 5 do
    begin
       buton := TButton.Create(Self);
       Buton.Parent := Form1 ;
       buton.Name := 'A'+IntToStr(i) ;
       buton.caption:='deneme';
       buton.left:=30;
       buton.OnClick := XButtonClick;
    end;
end;

procedure TForm1.XButtonClick(Sender: TObject);
begin
  ShowMessage((Sender as TButton).Caption);
end;

[palandoken]

Evet arkadaşlar ben tam anlatamadım.Şimdi,
Form üzerinde sadece bir tane buton var.Bu butonun Click'ine yukarıdaki kodu yazıyorum.Programı çalıştırıyorum.Butona tıklayarak yeni 5 tane daha buton create ediyorum.Bu create ettiğim butonların name'leri sırasılya A1,A2,A3..... vs. oluyor.
Şimdi yeni create ettiğim bu butonlara FormClick'ten nasıl ulaşabilirim.Örneğin sadece A3 name'ine sahip butonun caption'ını veya left'ini FormClick'ten nasıl değiştiririm.

[ALUCARD]

[rsimsek]

Çalışma anında oluşturulan nesnelere aşağıdaki gibi ulaşabilirsin

unit1.pas

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  Buton: TButton;
begin
  ListBox1.Items.Clear;
  for i := 1 to StrToInt(Edit1.Text) do
  begin
    buton := TButton.Create(Self);
    Buton.Parent := Form1;
    buton.Name := 'A' + IntToStr(i);
    Buton.Left := 30;
    Buton.Top := i * 50;
    ListBox1.Items.Add('A' + IntToStr(i));
    ListBox1.Items.Objects[i] := Buton;
  end;
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  TButton(FindComponent(ListBox1.Items[ListBox1.ItemIndex])).Caption := TimeToStr(Now);
end;

end.

unit1.dfm

Kod: Tümünü seç

object Form1: TForm1
  Left = 297
  Top = 316
  Width = 716
  Height = 360
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 324
    Top = 58
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object ListBox1: TListBox
    Left = 415
    Top = 23
    Width = 256
    Height = 212
    ItemHeight = 13
    TabOrder = 1
    OnDblClick = ListBox1DblClick
  end
  object Edit1: TEdit
    Left = 279
    Top = 25
    Width = 121
    Height = 21
    TabOrder = 2
    Text = '5'
  end
end

Bilmem ben anlamışmıyım

[palandoken]

Recep Abi teşekkür ediyorum.İstediğim işte buydu.
Saygılar...