Dinamik Oluşturulan Nesneler ve Olaylarına Erişim

2005-02-19T04:28:00.000+02:00

S: çalışan bir uygulamada nesne oluşturuyorum ve bunun özelliklerini nasıl belirleyebilirim mesala 1 adet button oluşturdum farzedelim ve bunu çift tklayınca ekrena yeni panel açılsın desem nasıl demem gerekiyor yani dbclik özelligi nasıl eklerim

C:


  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure DoOnClick(Sender: TObject);
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Btn: TButton;
begin
  Btn := TButton.Create(self);
  Btn.OnClick := DoOnClick; // !!
  Btn.Left := 50;
  Btn.Top := 50;
  Btn.Width := 100;
  Btn.Caption := 'RuntimeButton';
  Btn.Parent := Self;
end;

Oktay Sancak

Form Üzerindeki Kontrollere Toplu Erişim

2005-02-19T03:54:00.000+02:00

S: Bir form üzerindeki aynı yapıya sahip nesnelerin hepsinin özlliklerini değiştirmek istiyorum.

C:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to Form1.ComponentCount - 1 do
  begin
    if (Form1.Components[i] is TCheckBox) then // tip kontrolü
    begin
      TCheckBox(Form1.Components[i]).Checked := True; // False
    end;
  end;
end;

Oktay Sancak

Oktay Sancak - İpuçları

Dinamik Oluşturulan Nesneler ve Olaylarına Erişim

Form Üzerindeki Kontrollere Toplu Erişim