Bild in ein Delphi-Form einbinden

[d3g]

Hi Chriss,

auf dem Register "Additional"/"Zusätzlich" findest du die Komponente TImage. Im Objektinspecktor kannst du der Eigenschaft "Picture" ein Bild zuweisen. Was die Labels angeht, kannst du das OnMouseMove-Ereignis benutzen. Klicke auf das erste Label, wähle im Objektinspektor "Events"/"Ereignisse" und mache einen Doppelklick in das Feld neben OnMouseMove. Eine Prozedur wird erstellt, merke dir den Namen. Bei allen anderen Labels suchst du auch OnMouseMove auf, aber du wählst dort in der Combobox den Namen der Prozedur aus.

Jetzt wird jedesmal, wenn jemand mit der Maus über das Label fährt diese Prozedur aufgerufen. Hier kannst du dann folgendes eintragen:

Code:

  [b]case[/b] TLabel(Sender).[b]Name[/b] [b]of[/b]
    'Label1': Image1.Picture.LoadFromFile('Bild bei Label1');
    'Label2': Image1.Picture.LoadFromFile('Bild bei Label2');
    [color=#000080][i]// usw.[/i][/color]
  [b]end[/b];

Dabei wird bestimmt, welches Label diese Prozedur aufruft und mit Image1.Picture.LoadFromFile() wird das Bild in das Image geladen.

Wenn du in der Zeile nach dem Wort "implementation" in deinem Quelltext

Code:

[b]uses[/b] JPEG;

einträgst, kannst du auch JPEGs laden.

MfG,
d3g