Pierwsze pytanko, pewnie banalne, ale niemoge nigdzie tego znaleźć:
Mam TreeView a w nim elementy drzewa, jak zrobić, aby domyślnie po odpaleniu programu drzewko było rozwinięte ?
Drugie pytanko:
Jak przypisać procedurki do wybranych gałęzi TreeView ?
Za wszelką pomoc z góry wielkie dzieki :)
A do helpa zaglądałeś?
1.Ttreenode.expand.
2.Treeview.onexpanded , onexpanding
i co , nie działa?
Kurcze w helpie też jest to obktojone strasznie, mam wersje Personal 7 może dlatego tego NIE MA :/
Z tym 1 to wielkie dzieki, poszukałem, poszukałem na Forum i znalazłem taki kodzik:
for i:=0 to TreeView1.Items.Count-1 do
TreeView1.Items.Item[i].Expand(True);
i co najważniejsze działa, tylko niemoge znaleźć dalej odpowiedzi na moje 2 pytankie ;/
jakie procedury? Przy kliknieciu? Rozwinieciu?
Chodzi mi o to, żeby jak klikne na jakis element TreeList to wykonywała się jakaś procedura np. odtworzenie pliku .wav :) Chodzi mi o klucze główne, jak i podklucze TreeList, ogólnie do każdego elementu osobna procedurka :D
Kod dla pliku exe :
If TreeView1.Items.Item[1].Selected then WinExec('sciezka pliku exe',SW_SHOW);
Dla pliku muzycznego mozesz uzyc funkcji PlaySound, przed jej uzyciem w sekcji uses dodaj biblioteke MMSystem.
Wielkie dzieki, działa [browar] :D
Ale mam jeszcze jedno pytanko, żeby niezakłądać kolejnego tematu mam sobie taki kodzik:
//pobieranie listy programów w autostarcie z HKEY_LOCAL_MACHINE;
var Reg: TRegistry; //rejestr
S: TStringList; //lista
i: integer;
Item: TLIstItem;
begin
REg := TRegistry.Create;
S := TStringList.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE; //klucz główny
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False); //otwarcie odpowiedniego klucza
Reg.GetValueNames(S); //pobranie nazw wartości z klucza
for i := 0 to S.Count -1 do //od 0 do ich ilości -1 rób
begin
Item := ListView1.Items.Add; //dodaj item do listview
Item.Caption := S.Strings[i]; //jego caption to nazwa wartości
Item.SubItems.Add(Reg.ReadString(S.Strings[i])); //jego subitem to ścieżka dostępu (dane wartości)
end;
REg.CloseKey; //kończymy
Reg.Free;
S.Free;
jak go zmienić, żeby na ListView wyswietlała się zawartość folderu Autostartu Windowsa (pliki) zamiast wpisów w rejestrze z HKEY_CURRENT_MACHINE ? Wiem, że to pewnie lamerskie, ale ja sie dopiero uczę i chciałbym to jakoś zrobić a w książkach które mam <ort>niepisze </ort>niestety o tym ;/
var
SRec: TSearchRec;
res: Integer;
path: string;
begin
path := 'C:\Documents and Settings\Marek\Menu Start\Programy\Autostart'; //ścieżka dostępu, ja mam taką
res := FindFirst(path + '*', faAnyFile, SRec);
while res = 0 do begin
if (SRec.Name <> '.') and (SRec.Name <> '..') then
// tu dodajesz do swojej listy
res := FindNext(SRec);
end;
chyba o to chodziło?
Ale w tym kodziku niemam nic o tym, że elementy z folderu autostart mają sie WYŚWIETLAĆ NA LISTVIEW :P
Ale w tym kodziku niemam nic o tym, że elementy z folderu autostart mają sie WYŚWIETLAĆ NA LISTVIEW :P
ślepy jesteś czy co??
var
SRec: TSearchRec;
res: Integer;
path: string;
begin
path := 'C:\Documents and Settings\Marek\Menu Start\Programy\Autostart'; //ścieżka dostępu, ja mam takąres := FindFirst(path + '*', faAnyFile, SRec);
while res = 0 do begin
if (SRec.name <> '.') and (SRec.name <> '..') then// tu dodajesz do swojej listy
res := FindNext(SRec);
end;chyba o to chodziło?
Wyraźnie teraz widać gdzie masz dodać do listview
A jak dodać do listview to jest na forum kilkanaście razy przewałk0owane