componente ozellik ekleme

[cfyasar]

label bileşenini kullanıyorum ama label a başka özellikler de eklemem lazım. bu çalışma anında yapmam mümkün mü. yoksa tcustomlabel dan bir component mi yaratmalıyım.
mesela çeşitli formlarda kullanıcı label oluşturuyor. buları ListBoxs:array[0..50] of Tlistbox; dizisinde gerekli özellikleri saklıyorum. bu dizide listbox in özelliğinde olmayan bazi değişkenleri de saklamam lazım. mesela duruma göre 3 tane text saklamam gerekiyo ama 1 tane text vat. listbox a text2 ve text3 diye değişkenler eklemeliyim.

[lazio]

şöyle bişey işini görebilir..

Kod: Tümünü seç

  MyRec = Record 
    lblname : TComponentName;
    Texts : Array[1..10] of String;
    // .. diger özellikler
  end;

bu tipte bir dizi oluşturabilirsin..

Kod: Tümünü seç

var
  xRec : Array[1..50] of MyRec;

[cfyasar]

sağolasın, pratik bir çözüm. sanırım işimi görür.

[gkimirti]

labelleri runtime olusturuyor iseniz,

Kod: Tümünü seç

TYeniLabel =class(TLabel)
  private
    FOzellik1: Integer;
  public
    property Ozellik1: Integer read FOzellik1 write FOzellik1;   
end;

gibi bir sınıf olusturup runtime create edilen labelleri

Kod: Tümünü seç

TYeniLabel =class(TLabel)
  private
    FOzellik1: Integer;
  public
    property Ozellik1: Integer read FOzellik1 write FOzellik1;
end;

procedure TFrmMain.Button1Click(Sender: TObject);
var
  LblDizi:array[1..2] of TLabel;
begin
  LblDizi[1]:=TYeniLabel.Create(self);
  LblDizi[1].Parent:=FrmMain;
  LblDizi[1].Top:=100;
  LblDizi[1].Left:=200;
  LblDizi[1].Caption:='yeni labelim';
end;

[cfyasar]

tam olarak aradığım cevap buydu teşekkürler.