Hallo Delphiturbo,
schau Dir mal dieses Tut. an. Hier werden die meisten Deiner Fragen sehr gut erklärt und mit Beispielen illustriert.
TreeView - Tut.
Vielleicht noch ein Tipp am Rande, da Data ein Pionter ist, erstelle ich mir von den Daten die ich als Data am TreeView hängen will ein Object und hänge dieses dann als Data an.
In etwa so müsste das Daten – Object aussehen:
Delphi-Quellcode:
unit uDataClassTreeView;
interface
Type
TDatenfuerTreeViewClass=
Class(TObject)
private
FUrl:
String;
FProviderTyp:
String;
function GetUrl:
String;
procedure SetUrl(
const Value:
String);
function GetProvider:
String;
function GetProviderTyp:
String;
procedure SetProviderTyp(
const Value:
String);
published
property Url:
String read GetUrl
write SetUrl;
property Provider:
String read GetProvider;
property ProviderTyp:
String read GetProviderTyp
write SetProviderTyp;
public
constructor Create(aUrl:
String);
destructor Destroy;
override;
End;
implementation
{ TDatenfuerTreeViewClass }
constructor TDatenfuerTreeViewClass.Create(aUrl:
String);
begin
inherited Create;
Url:= aUrl;
end;
destructor TDatenfuerTreeViewClass.Destroy;
begin
inherited Destroy;
end;
function TDatenfuerTreeViewClass.GetProvider:
String;
var
strHilf:
String;
begin
if FUrl <> '
'
then
begin
strHilf:= FUrl;
Delete(strHilf, 1, Pos('
/',strHilf)+1);
Delete(strHilf,pos('
.',strHilf),Length(strHilf));
result:= strHilf;
end;
end;
function TDatenfuerTreeViewClass.GetProviderTyp:
String;
begin
Result:= FProviderTyp;
end;
function TDatenfuerTreeViewClass.GetUrl:
String;
begin
result:= FUrl;
end;
procedure TDatenfuerTreeViewClass.SetProviderTyp(
const Value:
String);
begin
if Value <> FProviderTyp
then
begin
FProviderTyp:= Value;
end;
end;
procedure TDatenfuerTreeViewClass.SetUrl(
const Value:
String);
begin
if Value <> FUrl
then
begin
FUrl:= Value;
end;
end;
end.
Man könnte noch weitere Informationen in das Object stecken.
Dieses Object muss vor dem Einfügen in den Baum dann ganz normal mit Create erstellt werden und wird an einen Knoten angehängt.
Wenn das Form wieder zerstört wird ist es wichtig die Objecte wieder Frei zugeben,
Bis bald Chemiker