Hallo ich versuche während der Laufzeit ein Bild Timage zu erstellen. Aber auf meiner Form wird es einfach nicht angezeigt. Es ist nicht zu erkennen!!! Was mache ich falsch??

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Image2 : TImage;
begin

  Image2 := TImage.Create(Form1);
  Image2.Top := 150;
  Image2.left := 150;
  image2.Stretch:=true;
  Image2.Picture.Bitmap.LoadFromFile('C:\irgendwas.bmp');

end;

Andre

Hi,

du solltest Image.Parent noch auf self setzen.

Freundliche Grüße vom marabu

auch nachdem ich

Image2.parent:=self

gesetzt habe ist das bild nicht auf der Form zu sehen. Ich hab schon soviel probiert und gesucht aber ich weiß nicht warum es nicht klappt!

Hallo,

also das verwende ich in einen Program und es geht:

zusammenfalten · markieren

Delphi-Quellcode:

...
 linie: Array [1..50] of TImage;
 i: byte;
...

// Erstelle Linien
  for i:=1 to 50 do
  begin
    linie[i]:=TImage.Create(Self);
    linie[i].Parent := Self;
    linie[i].Visible:=true;
    linie[i].Picture:=img_rot_links.Picture;
    linie[i].Stretch:=true;
  end;

Also statt Form1 habe ich Self, und visible setze ich auf true, und statt height und width einfach stretch auf true,
probier das mal so.

Das funktioniert wenn man hinter Timagecreate(self) setzt. Aber warum geht das nicht wenn man es auf Timage.create(Form1) erstellen möchte?? Und was bewirkt dieses parent überhaupt??

Danke für eure Hilfe

Zitat:

Das funktioniert wenn man hinter Timagecreate(self) setzt. Aber warum geht das nicht wenn man es auf Timage.create(Form1)erstellen möchte??

Wenn du das ganze in einer Methode der Form1 aufrufst ist self Form1. Müßte also identisch sein.

Zitat:

Und was bewirkt dieses parent überhaupt??

der Parnet ist für das Zeichen zuständig