Einzelnen Beitrag anzeigen

Deven

Registriert seit: 27. Jun 2003
49 Beiträge
 
Delphi 7 Enterprise
 
#1

den Caption eines Dynamisch erstellten Panels ändern

  Alt 29. Dez 2003, 21:11
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;
  Mit Zitat antworten Zitat