Mit TImage lassen sich beliebige Bilder der Formate jpg, bmp oder png direkt auf einem Formular darstellen.
var
imgFzg : TImage;
FzgBild : String;
...
...
procedure ShowFormStart();
begin
//-----------------------------------------------------------------
//-- Definition Größe vom Formular und Startposition auf dem RBS --
//-----------------------------------------------------------------
formStartWidth := 1200; //Breite des Formulars in Pixel
formStartHeight := 964; //Höhe des Formulars in Pixel
formStartPosX := 100; //Startposition des Formulars X-Richt.
formStartPosY := 100; //Startposition des Formulars Y-Richt.
//-----------------------------------------------------------------
formStart := TForm.Create(nil);
formStart.Caption := 'Reifenauswahl-Dialog';
formStart.BorderStyle := bsDialog;
formStart.SetBounds(formStartPosX,formStartPosY,formStartWidth,formStartHeight);
//-----------------------------------------------------------------
...
...
//------Deklaration vom Bilder auf der Form "formstart" -----------
imgFzg := TImage.Create (formStart);
imgFzg.parent := formStart;
imgFzg.SetBounds (340,70,130,100);
FzgBild:=('C:\Bild_vom_Fahrzeug.png');
imgFzg.Picture.LoadFromFile(FzgBild);
imgFzg.Proportional := true;
imgFzg.stretch := true;
...
...
end;
...
...
//--------Hauptprogramm--------------------------------------------
begin
...
ShowFormStart();
...
end.
Mit obigen SourceCode wird jetzt auf die Form „formstart“ ein Bild auf die Position 340,70 mit der Größe 130 x 100 Pixel gesetzt. Das Bild selber ist C:\Bild_vom_Fahrzeug.png