TPanel und Image Frage???

[Bernd29bln]

Hallo,

Ich habe auf meiner Form ein Panel, per Button wird ein Bild auf dem Panel erstellt.
Wie bekomme ich ein zweites Bild unter dem ersten.

Mein Code:

Delphi-Quellcode:

  bmp1:=TImage.Create(Panel1);  // Bild erstellen.
  bmp1.Picture.Bitmap.LoadFromResourceName(HInstance, 'LedRotOff');
  bmp1.Parent:=Panel1;          // Bild ins Panel setzen

Gruss Bernd

[Sunlight7]

Hallo!

Deine Frage ist etwas dürftig formuliert.
Ich gehe mal davon aus, das Du ein zweites Image unter dem ersten platzieren möchtest.

Mein Code:

Delphi-Quellcode:

// So
bmp2:=TImage.Create(Panel1);  // Bild erstellen.
bmp2.Picture.Bitmap.LoadFromResourceName(HInstance, 'Unteres Bild');
bmp2.Parent:=Panel1;          // Bild ins Panel setzen

bmp1:=TImage.Create(Panel1);  // Bild erstellen.
bmp1.Picture.Bitmap.LoadFromResourceName(HInstance, 'LedRotOff');
bmp1.Parent:=Panel1;          // Bild ins Panel setzen

Delphi-Quellcode:

// Oder so
bmp1:=TImage.Create(Panel1);  // Bild erstellen.
bmp1.Picture.Bitmap.LoadFromResourceName(HInstance, 'LedRotOff');
bmp1.Parent:=Panel1;          // Bild ins Panel setzen

bmp2:=TImage.Create(Panel1);  // Bild erstellen.
bmp2.Picture.Bitmap.LoadFromResourceName(HInstance, 'Unteres Bild');
bmp2.Parent:=Panel1;          // Bild ins Panel setzen

bmp1.BringToFront;

[Bernd29bln]

Hallo,

Du hast recht, war nicht ganz verständlich . Ich meinte es so.

Wen ich im Edit feld den wert 3 habe soll auch Bmp1 3 x auf dem Panel untereiander sichtbar angezeigt werden .

Gruss Bernd

[Bernd29bln]

Hallo,

Okay ich habs fast geschaft , ich hab bmp1 in ein Array gestopft.
Problem : Wenn ich im edit den wert 2 eintrage wird der abstand grösser zwischen den Led´s .

Mein Code:

Delphi-Quellcode:

var i: integer;
begin
i:= strtoint(Edit1.Text);
for i := 0 to 100 do
 begin

  bmp1[i]:=TImage.Create(Panel1);  // Bild erstellen.
  bmp1[i].Picture.Bitmap.LoadFromResourceName(HInstance, 'LedRotOff');
  bmp1[i].Parent:=Panel1;          // Bild ins Panel setzen

if i > 0 then

bmp1[i].Top:= bmp1[i].Top* i;
panel1.Repaint;

[Sunlight7]

Hallo,

diese Frage, ist jetzt eine

Falls der Abstand nicht größer sein soll:

Mein Code:

Delphi-Quellcode:

var i: integer;
begin
i:= strtoint(Edit1.Text);
for i := 0 to 100 do
 begin

  bmp1[i]:=TImage.Create(Panel1);  // Bild erstellen.
  bmp1[i].Picture.Bitmap.LoadFromResourceName(HInstance, 'LedRotOff');
  bmp1[i].Parent:=Panel1;          // Bild ins Panel setzen

// if i > 0 then // Macht keinen Unterschied, ob mit oder ohne

bmp1[i].Top:=bmp1[i].HEIGHT * i;
panel1.Repaint;

PS: Ich würde da dringend Schutzblöcke empfehlen

[Bernd29bln]

Danke für deine schnelle Antwort.

In wie fern meist du das mit schutz Blöcken ?

Gruss Bernd

[Sunlight7]

Wenn ich gerade Online bin, kann ich schnelle Antworten geben

Ich meine das zB so:

Delphi-Quellcode:

var i: integer;
begin
//i:= strtoint(Edit1.Text);
i:= strtointdef(Edit1.Text, 0); // <- Sicherer
If i>0 then try
  for i := 0 to 100 do
  begin

    bmp1[i]:=TImage.Create(Panel1);  // Bild erstellen.
    bmp1[i].Picture.Bitmap.LoadFromResourceName(HInstance, 'LedRotOff');
    bmp1[i].Parent:=Panel1;          // Bild ins Panel setzen

//   if i > 0 then // Macht keinen Unterschied, ob mit oder ohne

  bmp1[i].Top:=bmp1[i].HEIGHT * i;
  panel1.Repaint;
except
  // Wenn Fehler, Abbrechen und bereits erstelltes frei geben, oder sonst entsprechend vorgehen
end;

[Bernd29bln]

Achso ja das ist gut , aber ich hab immer noch das problem das die Bitmaps nicht unter einander sichtba dargetellt werden.

Hast du dafür eventuell eine Idee?

gruss bernd

[Sunlight7]

Wo hakt's?

[Bernd29bln]

Also ich möchte die Leds untereinader (nicht übereinander) aufgereit haben bei meinem code verschiebt er die 2 led nur innerhalb der ersten led sie sollte aber genau unter der erten Led angezeigt werden .

gruss bernd