DirectoryListBox gösterdiği konumu değiştirmek

[pandora303]

Merhabalar
Normalde uygulamaya bir DirectoryListBox eklediğimizde C:\ altındaki tüm klasörleri listeliyor. Ancak ben sadece belirli bir konumdakiler listelensin
istiyorum. Örneğin sadece C:\Program Files\Borland ve en üst klasör bu olsun.

Teşekkürler

[Battosai]

directorylistbox'ın özelliklerine bak orda bulursun cevabı.Sorunun cevabı çok basit olduğu için daha başkada bişey demiyorum...

[sabanakman]

Şöyle yüzeysel olarak inceledim ama soruda istendiği gibi bir özellik olduğunu göremedim . Eğer maksat klasör seçtirmek ise

Kod: Tümünü seç

uses FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var Dir:String;
begin
  if SelectDirectory('Caption','c:\Program Files',Dir) then;
end;

Gibi bir kodla da seçim yaptırılabilir.

[Battosai]

özellik dedim ama bunun bu özellikleri kod içerisnden geliyor yazayım hadi..

Kod: Tümünü seç

  DirectoryListBox1.Drive:='D';// D sürücüsüne geçer
  DirectoryListBox1.Directory:='C:\downlod';//  belirtilen dizini listeler

ayrıca bunda en üstte olma diye bişey yoktur. Belirtilen dizini alt ve üst olarak listeler....

[sabanakman]

Benim sorudan anladığım, listelenen klasörlerde verilen klasörün üst seviyesine çıkamamak gibi bir sınırlandırma getirilmesi gerektiğidir. Bu sebeple o özellik yok diyerek yukarıdaki örneği gönderdim. Bu noktanın aydınlanması için; pandora303 top sende.

[pandora303]

Şaban hocam

Beni bir tek siz anlamışsınız. Evet tam da dediğiniz şeyi yapmak istiyorum DirectoryListBox da belirtilen klasörün üstüne çıkamamak ve bu klasörün üstündeki klasörlerinin görünmemesi.Aradım nette de ama bulamadım :(

[ikutluay]

Şaban hocam

Beni bir tek siz anlamışsınız. Evet tam da dediğiniz şeyi yapmak istiyorum DirectoryListBox da belirtilen klasörün üstüne çıkamamak ve bu klasörün üstündeki klasörlerinin görünmemesi.Aradım nette de ama bulamadım

directrory listboxı modifiye ederek yeni bir componentle denemelisin. tabii buna uygun bilgin olmalı. yada onexit koduna bir kontrol düşünebilirsin.

[aseka]

--