Bild in ein Delphi-Form einbinden

[Chriss]

Hi an alle!!

Ich bin ein totaler Anfänger in Delphi und brauche unbedingt Hilfe
Ich kann aus der Schule ein wenig Delphi und hab nun schon einigeKleinigkeiten gemacht! Nun zur Frage:
Ich möchte ein Bild auf eine Form einfügen!!! Das ist mein erstes Problem: Wie geht das???
In zweiter Linie möchte ich, dass ich auf einer Seite mehrere Labels stehen habe und wenn ich über die einzelnen gehe, soll sich das Bild in ein anderes umwandeln!! Ich hoffe, ihr könnt mir behilflich sein, Danke im Vorraus!!!

Chriss

[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

[Chriss]

Danke für die schnelle Antwort funktioniert super!!!!!!!!

cya
Chriss

[jbg]

Zitat von d3g:

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];

Wahnsinn! Kannst du mir diesen Delphi Compiler schicken? Meiner lässt nämlich bei case of keine Strings zu.

[d3g]

Das ist mal wieder schlimm mit mir...

Wie auch immer, so gehts auch:

Code:

[b]if[/b] (TLabel(Sender).[b]Name[/b] = 'Label1') [b]then[/b]
  Image1.Picture.LoadFromFile('Bild bei Label1');
[color=#000080][i]// usw.[/i][/color]

MfG,
d3g