| Kayıtları combobox'a aktarma
Kod: Kodu kopyalamak için üzerine çift tıklayın! procedure TForm2.FormActivate(Sender: TObject);
begin
table1.First;
combobox1.Items.Add('<---- Seçsene looo--->');
while not table1.Eof do
begin
combobox1.Items.add(table1name.Text);
table1.Next;
end;
combobox1.ItemIndex:=0;
end;
end.
__________________ SusKun ve Sessiz Mürekkep...
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
|