Ĺadny brzuch
Nie wiecie jak sprawdzić, jaki jest obecnie otwarty foldrer w komponencie DirectoryListBox i zapisać to do zmiennej?
Jakby ktoś chciał wiedzieć, to DirectoryListBox pozwala na wybór jakiegoś folderu nie pliku.
Aha chcę to wykorzystać do napisania programu do "znikania" folderów. Sam sposób ich znikania jest opisany w pierwszym numerze Eksperta, na stronie 49.
DirectoryListBox1.Directory
PS. o to chodzi?
Wstaw to to zobaczysz :)
---
Oops źle przeczytałem na początku, ale sprawdzę czy chodzi o to
Użytkownik pacman edytował ten post 03 czerwiec 2005, 14:30
Wstawilem i u mnie jest wsio ok, moze po prostu zle Cie zrozumialem...
Zauważyłem kilka smutnych rzeczy w pracy z tym komponentem :(
Zauważyłem kilka smutnych rzeczy w pracy z tym komponentem :(
Nie wiecie jak sprawdzić, jaki jest obecnie otwarty foldrer w komponencie DirectoryListBox i zapisać to do zmiennej?
:excl: :excl: Już wiem! Wystarczy za pomocą właściwości DirLabel wybrać jakiś label i ten label zapisać jako zmienna
co prawda nie znam tego komponentu, ale u mnie działa takie coś :
procedure TForm1.FormCreate(Sender: TObject); begin  DirectoryListBox2.Directory := 'c:\windows\'; end;
Użytkownik Bełdzio edytował ten post 03 czerwiec 2005, 14:51
co prawda nie znam tego komponentu, ale u mnie działa takie coś :
procedure TForm1.FormCreate(Sender: TObject); begin DirectoryListBox2.Directory := 'c:\windows\'; end;
Spróbowałem obsłóżyć kilka dysków takim sprytnym kodem (niestety, próba zakończyła się fiaskiem :( )(widać tylko efa)
procedure TForm2.FormCreate(Sender: TObject); begin DirectoryListBox1.Directory := 'c:\'; DirectoryListBox1.Directory := 'f:\'; end;
Użytkownik pacman edytował ten post 03 czerwiec 2005, 15:13
Spróbowałem obsłóżyć kilka dysków takim sprytnym kodem (niestety, próba zakończyła się fiaskiem :( )(widać tylko efa)
procedure TForm2.FormCreate(Sender: TObject); begin DirectoryListBox1.Directory := 'c:\'; DirectoryListBox1.Directory := 'f:\'; end;
wstaw komponent DriveComboBox na formę oraz dopisz sobie taki kod,OI :
procedure TForm1.DriveComboBox1Change(Sender: TObject); begin DirectoryListBox1.Drive := DriveComboBox1.Drive; end;
od tego jest DirectoryComboBox.
A wogole, to Beldzio -> gdzie twoja walka z lamerstwem? <_<
Chwileczkę, rozwiązuję problem za pomocą DriveBoxa.
Schemat ma być prosty:
Przepraszam, że nie widziałem poprzednich postów, bo tego tak długo pisałem :)
Użytkownik pacman edytował ten post 03 czerwiec 2005, 15:23
Chwileczkę, rozwiązuję problem za pomocą DriveBoxa.
Schemat ma być prosty:
wstaw komponent DriveComboBox na formę oraz dopisz sobie taki kod,OI :
procedure TForm1.DriveComboBox1Change(Sender: TObject); begin DirectoryListBox1.Drive := DriveComboBox1.Drive; end;
A wogole, to Beldzio -> gdzie twoja walka z lamerstwem? <_<
Nie wiecie jak sprawdzić, jaki jest obecnie otwarty foldrer w komponencie DirectoryListBox i zapisać to do zmiennej?
I szukam odpowiedzi na to pytanie
Dzięki wielkie dzięki, ale teraz proponuję przejść do głównego wątku tematu.
Przez przypadek dopiero teraz zobaczyłem to, ale nie wiem jak to sprawdzić że katalog został zapisany do zmiennej!
Przez przypadek dopiero teraz zobaczyłem to, ale nie wiem jak to sprawdzić że katalog został zapisany do zmiennej!
procedure TForm1.DirectoryListBox1Change(Sender: TObject); var katalog : string; begin katalog := DirectoryListBox1.Directory; end;
albo w onclick - decyzja należy do Ciebie
albo w onclick - decyzja należy do Ciebie
Chyba lepiej w onchange... onclick jest tez wtedy, gdy kliknie na scrollbara...
PS. nie mowcie, ze nieistotne...
Dobrze, ale muszę wam uświadomić, że to całe okno z katalogami to dodatkowe okno i chcę zaimportować katalog z tej formy do Formy głównej na Edita
i w tym momencie przegiąłeś pałke :) idź poczytaj o podstawach :) niedosyć, że masz full kodu to jeszcze pytasz się od podstawowe podstawy podstaw
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Jakby ktoś chciał wiedzieć, to DirectoryListBox pozwala na wybór jakiegoś folderu nie pliku.
Aha chcę to wykorzystać do napisania programu do "znikania" folderów. Sam sposób ich znikania jest opisany w pierwszym numerze Eksperta, na stronie 49.
DirectoryListBox1.Directory
PS. o to chodzi?
Wstaw to to zobaczysz :)
---
Oops źle przeczytałem na początku, ale sprawdzę czy chodzi o to
Użytkownik pacman edytował ten post 03 czerwiec 2005, 14:30
Wstawilem i u mnie jest wsio ok, moze po prostu zle Cie zrozumialem...
Zauważyłem kilka smutnych rzeczy w pracy z tym komponentem :(
- lKomponent czyta tylko z jednego dysku, mam nadzieję, że uda się to naprawić DriveListBoxem
llNie wiem jak zmienić domyślnie widziany folder, nie chcę by był to katalog Projects w Delphil
Zauważyłem kilka smutnych rzeczy w pracy z tym komponentem :(
- lKomponent czyta tylko z jednego dysku, mam nadzieję, że uda się to naprawić DriveListBoxem
llNie wiem jak zmienić domyślnie widziany folder, nie chcę by był to katalog Projects w Delphil
Nie wiecie jak sprawdzić, jaki jest obecnie otwarty foldrer w komponencie DirectoryListBox i zapisać to do zmiennej?
:excl: :excl: Już wiem! Wystarczy za pomocą właściwości DirLabel wybrać jakiś label i ten label zapisać jako zmienna
co prawda nie znam tego komponentu, ale u mnie działa takie coś :
procedure TForm1.FormCreate(Sender: TObject); begin  DirectoryListBox2.Directory := 'c:\windows\'; end;
Użytkownik Bełdzio edytował ten post 03 czerwiec 2005, 14:51
co prawda nie znam tego komponentu, ale u mnie działa takie coś :
procedure TForm1.FormCreate(Sender: TObject); begin DirectoryListBox2.Directory := 'c:\windows\'; end;
Spróbowałem obsłóżyć kilka dysków takim sprytnym kodem (niestety, próba zakończyła się fiaskiem :( )(widać tylko efa)
procedure TForm2.FormCreate(Sender: TObject); begin DirectoryListBox1.Directory := 'c:\'; DirectoryListBox1.Directory := 'f:\'; end;
Użytkownik pacman edytował ten post 03 czerwiec 2005, 15:13
Spróbowałem obsłóżyć kilka dysków takim sprytnym kodem (niestety, próba zakończyła się fiaskiem :( )(widać tylko efa)
procedure TForm2.FormCreate(Sender: TObject); begin DirectoryListBox1.Directory := 'c:\'; DirectoryListBox1.Directory := 'f:\'; end;
wstaw komponent DriveComboBox na formę oraz dopisz sobie taki kod,OI :
procedure TForm1.DriveComboBox1Change(Sender: TObject); begin DirectoryListBox1.Drive := DriveComboBox1.Drive; end;
od tego jest DirectoryComboBox.
A wogole, to Beldzio -> gdzie twoja walka z lamerstwem? <_<
Chwileczkę, rozwiązuję problem za pomocą DriveBoxa.
Schemat ma być prosty:
- lSprawdź, jaki dysk jest wybrany
llJeżeli wybrany jest dysk c, wartość DirectoryListBox1 to c:/
llJeżeli natomiast wybrano dysk f, wartość DirectoryListBox1 to f:/l
Przepraszam, że nie widziałem poprzednich postów, bo tego tak długo pisałem :)
Użytkownik pacman edytował ten post 03 czerwiec 2005, 15:23
Chwileczkę, rozwiązuję problem za pomocą DriveBoxa.
Schemat ma być prosty:
- lSprawdź, jaki dysk jest wybrany
llJeżeli wybrany jest dysk c, wartość DirectoryListBox1 to c:/
llJeżeli natomiast wybrano dysk f, wartość DirectoryListBox1 to f:/l
wstaw komponent DriveComboBox na formę oraz dopisz sobie taki kod,OI :
procedure TForm1.DriveComboBox1Change(Sender: TObject); begin DirectoryListBox1.Drive := DriveComboBox1.Drive; end;
A wogole, to Beldzio -> gdzie twoja walka z lamerstwem? <_<
Nie wiecie jak sprawdzić, jaki jest obecnie otwarty foldrer w komponencie DirectoryListBox i zapisać to do zmiennej?
I szukam odpowiedzi na to pytanie
Dzięki wielkie dzięki, ale teraz proponuję przejść do głównego wątku tematu.
Przez przypadek dopiero teraz zobaczyłem to, ale nie wiem jak to sprawdzić że katalog został zapisany do zmiennej!
Przez przypadek dopiero teraz zobaczyłem to, ale nie wiem jak to sprawdzić że katalog został zapisany do zmiennej!
procedure TForm1.DirectoryListBox1Change(Sender: TObject); var katalog : string; begin katalog := DirectoryListBox1.Directory; end;
albo w onclick - decyzja należy do Ciebie
albo w onclick - decyzja należy do Ciebie
Chyba lepiej w onchange... onclick jest tez wtedy, gdy kliknie na scrollbara...
PS. nie mowcie, ze nieistotne...
Dobrze, ale muszę wam uświadomić, że to całe okno z katalogami to dodatkowe okno i chcę zaimportować katalog z tej formy do Formy głównej na Edita
i w tym momencie przegiąłeś pałke :) idź poczytaj o podstawach :) niedosyć, że masz full kodu to jeszcze pytasz się od podstawowe podstawy podstaw