Ok klingt alles ein bisschen komisch...
Was ich nun mal wieder will:
Ich klicke auf einen Knopf und es soll der Inhalt eines bestimmten Ordners in eine Listbox wandern.
Ich hab dafür diese Source gefunden
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
s, path: string;
i : integer;
stl : tstringlist;
begin
path:='c:\Test\*.*'#0;
s := path;
ListBox1.Perform(LB_DIR, DDL_READWRITE, LongInt(@s[1]));
listbox1.ItemIndex:=0;
stl:=tstringlist.Create;
try
for i := 0 to listbox1.items.count - 1 do
begin
stl.Add(listbox1.items.strings[listbox1.itemindex]);
listbox1.ItemIndex:=listbox1.ItemIndex+1;
end;
listbox1.Items.CommaText:=stl.commatext;
finally
stl.Free;
end;
end;
Leider passt diese nicht ganz für mich. Der Pfad zu dem Ordner steht bei mir in einer Edit. Zum Beispiel 'c:\Test\*.*' steht in Edit1. Wie kann ich es lösen, dass der Pfad von Edit1 hergenommen wird?
Nun sind alle Dateien in der Liste.
Es sollte nun möglich sein, wenn man auf einen der Items, zum Beispiel Item1 sollte nun als Button funktionieren, welcher eine bestimmte Aktion ausführt. Z.B. ein Message Dialog mit 'Auf Item1 geklickt'.
Wenn ich nun auf Item2 klicke sollte ein Message Dialog mit 'Auf Item2 geklickt' erscheinen.
Das mit den MessageDialogen dient nur als Beispiel. Ich hab was ganz anderes vor, aber somit ist es einfacher.
Zusammenfassung des Problems:
Ordnerinhalt in Listbox einlesen und Items als verschiedene Buttons benutzen.
[edit=sakura] Titel korrigiert. Mfg, sakura[/edit]