form işlemleri

[veski]

Merhaba arkadaşlar. Aşağıdaki soonunun içinden çıkamadım.

Elimdeki tabloda sabit bilgilerim var ve bu sabit bilgileri programda pekçok formda bir comboboxa atmam gerekiyor. Her formda aynı kodları tekrar tekrar yazmaktansa bir dll yada datamodüle bu kodları yazarak bu işlemi formdan parametre göndererek tek seferde yapmak istiyorum. Ancak burada ilgili formun adını ve ilgili combobox adını datamodüle göndermem gerekli ve oradan da bu form ve combo adını kullanarak comboyu doldurmak istiyorum. Bu işlemi nasıl yapabilirim?

[SimaWB]

DataModule'de TStringList şeklinde Combobox'a dolduracağın verileri döndüren bir fonksiyon yazıp istediğin formda bu fonksiyonu kullanabilirsin.
DataModule'de:

Kod: Tümünü seç

function GetList: TStringList;
begin
  Result := TStringList.Create;
  Result.Add('Tablodan bilgi 1') ;
  Result.Add('Tablodan bilgi 2') ;
 //...
end;

Daha sonra kullanmak istediğin formun OnCreate, OnShow vs. olayında:

Kod: Tümünü seç

var
  sl : TStringList;
begin
  sl := DataModul1.GetList;
  try
    ComboBox1.Items.Assign(sl) ;
  finally
    sl.Free;
  end;
end;

Kabaca yol göstermesi açısından bu tarz birşey düşünebilirsin...