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.

Delphi-Quellcode:

Button2.onClick := Button2Click;

Grüße
Klaus

[Mentos56]

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

[Klaus01]

Zitat:

Zitat von Mentos56 (Beitrag 1204844)

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]

Delphi-Quellcode:

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:

Zitat von Mentos56 (Beitrag 1204875)

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

Wird denn die Message mit "Bild" ausgegeben?

[Mentos56]

Nein, wenn ich den Button klicke passiert gar nichts.

Mentos56

[DeddyH]

Das OnClick hast Du aber zugewiesen?

[Mentos56]

Ohh, das hatte ich aus irgendeinem Grund vergessen. Vielen Dank für die schnelle Hilfe.

Mentos56

[Mentos56]

Und wie mache ich, dass das der Speicherplatz des Objektes beim Löschen wieder freigegeben wird?

[RaSoWa1]

Da Form1 der Besitzer der Komponenten ist, erledigt er das für dich, wenn er freigegegen wird.

Ich habe mir aber angewöhnt alle selbst erzeugten Objekt auch selbst wieder freizugeben. Ich habe deshalb kaum mit Speicherlecks zu kämpfen.
Deshalb einfach

Delphi-Quellcode:

Bild.Free

bzw.

Delphi-Quellcode:

Button3.Free

an geeigneter Stelle aufrufen. Spätestes im

Delphi-Quellcode:

TForm1.FormDestroy

.

Gruß Klaus

[Sir Rufo]

Zitat:

Zitat von RaSoWa1 (Beitrag 1204926)

Da Form1 der Besitzer der Komponenten ist, erledigt er das für dich, wenn er freigegegen wird.

Ich habe mir aber angewöhnt alle selbst erzeugten Objekt auch selbst wieder freizugeben. Ich habe deshalb kaum mit Speicherlecks zu kämpfen.
Deshalb einfach

Delphi-Quellcode:

Bild.Free

bzw.

Delphi-Quellcode:

Button3.Free

an geeigneter Stelle aufrufen. Spätestes im

Delphi-Quellcode:

TForm1.FormDestroy

.

Gruß Klaus

Ketzerisch gesagt heißt das, dass man nicht weiß, was man tut.

Wenn ich die Verwaltung eines Objekts delegiere (Owner bei Components oder bei Listen OwnsObjects), dann sollte man die Freigabe nur in Ausnahmefällen selber vornehmen (gerade bei Listen mit OwnsObjects kann das zu Exceptions führen)