Tweet
Hallo,
ich lese sämtliche Unterverzeichnisse eines Ordners ein und zeige den Name des Verzeichnisses dann in StaticText.caption
an. Da ich vorher nicht weiß, wieviele Unterverzeichnisse es gibt, generiere ich mir pro Unterverzeichnis ein Panel und darauf ein Image und StaticText. Das funktioniert auch alles super, aber wenn ich auf das Image klicke (OnClick) bekomme ich immer den Wert des zuletzt angelegten StaticText zurück und nicht den Wert des angeklickten Textes.
Kann mir jemand helfen, wie ich das hinbekomme?
Danke!
<PRE>
var
MyPanel: TPanel;
MyImage: TImage;
Mystatictext: TStaticText;
...
**Anfang Schleife (Läuft pro Verzeichnis einmal durch)
begin
MyPanel := TPanel.Create(Form1);
with MyPanel do begin
Parent := Form1;
Height := 108;
Width := 110;
...
end;
MyImage := TImage.Create(MyPanel);
with MyImage do begin
Parent := MyPanel;
Height := 58;
Width := 46;
Picture.LoadFromFile('.\ordner.bmp');
OnClick := ORDNER_KLICK;
end;
MyStaticText := TStaticText.Create(MyPanel);
with MyStaticText do begin
Parent := MyPanel;
Height := 31;
Width := 106;
end;
end;
**Ende der Schleife
procedure TForm1.ORDNER_KLICK(sender: TObject);
begin
label1.caption := Mystatictext.caption;
//hier soll immer das angeklickte Verzeichnis übergeben werden!
end;
</PRE>
ich lese sämtliche Unterverzeichnisse eines Ordners ein und zeige den Name des Verzeichnisses dann in StaticText.caption
an. Da ich vorher nicht weiß, wieviele Unterverzeichnisse es gibt, generiere ich mir pro Unterverzeichnis ein Panel und darauf ein Image und StaticText. Das funktioniert auch alles super, aber wenn ich auf das Image klicke (OnClick) bekomme ich immer den Wert des zuletzt angelegten StaticText zurück und nicht den Wert des angeklickten Textes.
Kann mir jemand helfen, wie ich das hinbekomme?
Danke!
<PRE>
var
MyPanel: TPanel;
MyImage: TImage;
Mystatictext: TStaticText;
...
**Anfang Schleife (Läuft pro Verzeichnis einmal durch)
begin
MyPanel := TPanel.Create(Form1);
with MyPanel do begin
Parent := Form1;
Height := 108;
Width := 110;
...
end;
MyImage := TImage.Create(MyPanel);
with MyImage do begin
Parent := MyPanel;
Height := 58;
Width := 46;
Picture.LoadFromFile('.\ordner.bmp');
OnClick := ORDNER_KLICK;
end;
MyStaticText := TStaticText.Create(MyPanel);
with MyStaticText do begin
Parent := MyPanel;
Height := 31;
Width := 106;
end;
end;
**Ende der Schleife
procedure TForm1.ORDNER_KLICK(sender: TObject);
begin
label1.caption := Mystatictext.caption;
//hier soll immer das angeklickte Verzeichnis übergeben werden!
end;
</PRE>
Comment