Hallo zusammen!
Ich habe da mal eine Frage!
Ich lasse hier ein panel dynamisch generieren und in diesem panel ein Image
Jetzt möchte ich dem Panel gerne ein Caption zuordnen aber habe keine ahnung wie ^^"
Könnte ihr mir helfen?
Delphi-Quellcode:
procedure TForm1.Case1;
var i:integer;
test:string;
const
NamePrefix = 'Panel';
NamePrefix2 = 'Image';
begin
links :=10;
oben :=10;
breite :=120;
hoehe :=120;
verschiebung :=130;
bild := 0;
loop := 0;
use := 0;
use1 := 0;
pa := 1;
for i := 1 to 4 do
begin
MyPanel1 := TPanel.Create(Self);
with MyPanel1 do
begin
Caption := '';
Name := NamePrefix + IntToStr(i);
SetBounds(links, oben, breite, hoehe);
Inc(oben,verschiebung); // Erhöht "oben" um "verschiebung"
if i = 2 then
begin
Inc(links,verschiebung);
oben := 10;
end;
parent:=Self;
end;
MyImage1 := TImage.Create(Self);
with MyImage1 do
begin
Name := NamePrefix2 + IntToStr(i);
SetBounds(3,3,114,114);
repeat
bild := Random(2);
bilderzuordnung;
until loop = 1;
bilderzuordnung2;
Picture.LoadFromFile(useBild);
parent:=MyPanel1;
end;
end;
end;