TImage während Laufzeit erzeugen

[Mentos56]

Hallo,

ich bin echt verzweifelt. Ich habe ein Programm mit 2 Buttons, der 1. Button erzeugt einen anderen ( das funktioniert) und der 2. Button sollte ein Bild erzeugen(funktioniert noch nicht)

Wie mache ich das? Habe mich schon belesen, aber es hat nicht funktioniert.

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils,  Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Bild : TImage;
  Button3:TButton;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button3 := TButton.Create(Form1);
  Button3.Parent:=self;
  Button3.Name := 'Button3';
  Button3.Enabled := true;
  Button3.Top := 50;
  Button3.Left := 50;
  Button3.Caption := 'Button3';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Bild:= Timage.create(Form1);
  Bild.Parent:= self;
  Bild.Left:=1;
  Bild.Top:=1;
  Bild.visible:=true;
  Bild.picture.LoadFromFile('Bilde.bmp');
  Bild.autosize:=true;
  showmessage('Bild');
end;

end.

Könntet ihr mir bitte helfen.

[Klaus01]

Hallo,

du könntest dem Button2 noch ein onClick Ereignis spendieren.

Button2.onClick := Button2Click; Grüße
Klaus

[Mentos56]

Du meinst, das ich dem erzeugten Button ein OnClick-Ereignis spendieren soll?

[Klaus01]

Zitat von Mentos56:

Du meinst, das ich dem erzeugten Button ein OnClick-Ereignis spendieren soll?

ja - woher soll der Button den sonst wissen was er tun soll.

Grüße
Klaus

[Mentos56]

naja, eigentlich wollte ich wissen wie ich das Bild während der Laufzeit erstelle. Aber danke für den Hinweiß mit dem OnClick-Ereignis.

[DeddyH]

Button3.OnClick := Button2Click; Und dann mal auf den Button klicken

[Mentos56]

Könnte mir bitte jemand erklären, wie ich ein Image während der Laufzeit erzeuge und ein Bild da rein lade.

Mentos56

[DeddyH]

Was gefällt Dir denn an Deinem eigenen Code nicht?

[Mentos56]

Wenn ich auf den Button 2 klicke erscheint das Bild nicht.

[Sir Rufo]

Zitat von Mentos56:

Wenn ich auf den Button 2 klicke erscheint das Bild nicht.

Wird denn die Message mit "Bild" ausgegeben?