jpeg per button (?)

[epoxone]

Hallo!
Habe gerade angefangen mich mit Delphi zu beschäftigen. Daher die Frage: Wie kann ich mit einem Button an einer bestimmten Stelle meiner Form ein jpeg aufrufen?
Muss ich dazu etwas in einer dll ändern/einfügen oder gibt es auch die Möglichkeit das Bild beispielsweise aus einer Pfad-Angabe zu laden?
Soviel zur Anfängerfrage...hoffe Ihr Antwortet mir (trotzdem :? )

Gruß

epoxone :gruebel:

[Matze]

Hallo, herzlich willkommen.

Ich verstehe dein Problem nicht ganz.

Wohin soll das Bild geladen werden? In eine TImage-Komponente? Falls ja, geht das so:

Delphi-Quellcode:

uses [...] JPEG;

...

Image1.Picture.LoadFromFile('Dein_Dateiname.jpg');

[Chegga]

Hi,

du nimmst dir die Image Komponente (Register Zusätzlich) und lädst dir da ein Bild rein.
Im OI des Image stellst du AutoSize besser gleich auf True & Visible auf False.
Doppelklick auf den Button,
und den Code so ergänzen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Visible := True;
end;

Und das Bild erscheint da,
wo du es Plaziert hast.

MfG Marc

P.S.:
Lese dir doch ein paar Einsteiger-Tutorials durch. :zwinker:

[epoxone]

Guten Abend!

Die Antwort kam ja fix. Besten Dank schon mal. :thumb:

Leider hab ich noch nicht so ganz das bewirkt was ich vorhatte. :coder2:

Also noch mal etwas genauer:

Ich habe 6 Buttons.
Mit jedem soll eine motorisierte Irisblende um einen bestimmten Durchmesser öffnen/schließen.
Gleichzeitig möchte ich aber für jeden Button ein Bild eingeblendet bekommen (-entspricht in etwa dem Öffnungs-Durchmesser der Irisblende).

Die Position des Bildes ist/soll über den Buttons in einem Image-Feld.

Wie bekomme ich das am besten hin?

Gruß

Heiko :gruebel:

[Matze]

Hi,

was ist denn nun genau dein Problem? Etwas Source wäre gut, dann könnten wir sehen, was du schon hast und wo es hängt. Denn wie man ein Bild in ein Image lädt, weiß du ja bereits.

[epoxone]

Hallo!

Ich habs doch noch selbst rausgefunden. Also, falls mal jemand das selbe Problem hat...es war garned so schwer, als ich wusste wies geht :lol: :

procedure TForm1.Button1Click(Sender: TObject);
begin
// verfahre Blende
// zeige Bild
img_BildIris.Picture.LoadFromFile( 'c:\pic\pic1.bmp' );
label1.caption := button1.caption;
end;


Hab ja auch nen guten Denkanstoß bekommen.

Besten Dank :zwinker: