opendialog nesnesi hakkında

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
YOLD@Ş
Üye
Mesajlar: 20
Kayıt: 06 Nis 2008 04:05

opendialog nesnesi hakkında

Mesaj gönderen YOLD@Ş »

kolay gelsin arkadaşlar,
arkadaşlar opendialog nesnesinde seçtğim bir dosyayı filelistbox'a aktarmak istiyorum biraz uğraştım ama seçtiğim dosya dışında aynı klasör içindeki diğer dosyalarda filelistbox'a ekleniyor ben sadece seçtiğim dosyanın eklenmesini istiyorum bu sorunu nasıl düzeltebilirim.
Kullanıcı avatarı
Search
Üye
Mesajlar: 74
Kayıt: 01 Oca 2008 01:03
Konum: Konya

Re: opendialog nesnesi hakkında

Mesaj gönderen Search »

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    begin
      FileListBox1.items.add(OpenDialog1.FileName);
    end;
end;
kolay gelsin...
procedure TForm1.FormCreate(Sender: TObject);
begin
showmessage('Dehanın %1 i ilham %99u terdir.');
end;
end.
Cevapla