Ich möchte die Win3.1 Komponenten endlich los werden und den ganzen kram in den TreeView einbauen:
Delphi-Quellcode:
procedure TForm1.DirectoryListBox1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button=mbRight then
With Sender as TFileListBox do
begin
if ItemAtPos (Point(x,y),True)>=0 then
BeginDrag(False);
end;
end;
Delphi-Quellcode:
procedure TForm1.Label6Click(Sender: TObject);
begin
FileListBox1.ApplyFilePath(Edit2.Text);
end;
Wie kann ich das in einen TreeView einbauen?
Im Titel steht das Ziel
