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

imgFzg.Visible := true;
imgFzg.Hint := 'Dies ist ein schönes Bild vom Fahrzeug';
imgFzg.ShowHint := true;

Start - FAQ - Glossar - Sitemap - Impressum