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.

markieren

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.

Hallo,

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

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

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

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

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

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

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

Mentos56

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

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

Zitat von Mentos56:

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

Wird denn die Message mit "Bild" ausgegeben?