Das finden der TImages nach Namen funktioniert soweit richtig super!
Auch das Zeichnen eines Textes mit Canvas in das Form klappt ganz gut.
Es gibt aber nach wie vor noch ein anliegen was ich durchs rum probieren noch nicht so richtig hinbekommen habe.
Ich habs mit folgendem Versucht:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var dc:hdc;
//Device Context Handle
Canvas:Tcanvas;
begin
dc:=getwindowdc(myhandle);
//TCanvas auf den Device Context setzen
canvas:=TCanvas.Create;
canvas.Handle :=
dc;
Image1.Picture.LoadFromFile('
mein_bild.jpg');
Image1.Picture.Graphic.SetSize(ImgWidth,ImgHeight);
canvas.Draw(ImgLeft,ImgTop,Image1.Picture.Graphic);
canvas.Free;
releasedc(myhandle,
dc);
end;
Bei dem Nutzen des SetSize erhalte ich folgenden Fehler: "Cannot change the size of a JPEG image".
Wenn ich das SetSize vom Image1 raus lasse zeichnet er mir zwar das Bild auf das Ziel-Form, aber in voller Größe.
Ich möchte es aber nur entweder in der Größe des eigenen Image1 oder aus den ImgWidth,ImgHeigth Variablen welche dem des ziel TImage entsprechen.
Zudem noch eine Frage, wie bekomm ich jetzt noch den Caption-Wert wenn es sich nicht um ein TImage sonder um ein TLable handelt?
Vielen Dank!