C# Dinamik Buton

Aerrow

Üye
Katılım
8 Eki 2012
Mesajlar
94
Puanları
1
Yaş
32
Konum
NETAŞ
Öncelikle Merhabalar...

Sinema otomasyonu yapıyorum. Malum çok fazla koltuk olucağı için koltukları temsilen tek tek buton eklemek yerine bunu dinamik butonla yapmak istiyorum. Fakat dinamik butonlar nasıl oluşturuluyo bilmiyorum. Nette araştırmalar yaptım. Denediğm kodlar çalışmadı. Benzeri proje yapan ya da nasıl oluşturulacağını bilen varsa yardımlarını bekliyorum.
 
Şu yazılanları denedin mi?

Create buttons dynamically

Bunun dışında lazarus örneği verebilirim:

Kod:
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

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

var
  Form1: TForm1;
  btn_cnt : integer=0;
  btn_left : integer=50;
  btn_top : integer=50;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin

  TButton.Create(self).Name := 'btn'+inttostr(btn_cnt);
  TButton(FindComponent('btn'+inttostr(btn_cnt))).Caption:= 'Düğme'+inttostr(btn_cnt);
  TButton(FindComponent('btn'+inttostr(btn_cnt))).Parent := Form1;
  TButton(FindComponent('btn'+inttostr(btn_cnt))).Left:= btn_left;
  TButton(FindComponent('btn'+inttostr(btn_cnt))).Top := btn_top;
  inc(btn_cnt);
  btn_left := btn_left + 25;
  btn_top := btn_top + 25;

end;

end.


Ekran görüntüsü şöyle olacaktır:

proje.jpg
 
İlginiz için teşekkürler... Kendi çabalarımla hallettim. Yapmak istediğim şeyi sıkıntısız fazlasıyla yaptım.
 

Forum istatistikleri

Konular
127,952
Mesajlar
913,881
Kullanıcılar
449,600
Son üye
psychedelic

Yeni konular

Geri
Üst