Auf zur laufzeit erstellten form ein TImage erstellen

[citybreaker]

Hallo,

bei einem Buttonklick lasse ich eine MdiChild erstellen nun möchte ich das auf dieser ein Image
angezeigt wird. Wie soll ich das nun machen?

Delphi-Quellcode:

// Bei buttonklick in Form 1 (MdiForm) 
var Form: TForm; 
      i: integer; 
begin 
  Form := TForm.Create(Self); 
  with Form do begin 
    Name := 'Bild' + IntToStr(i); 
    Caption := Name; 
    FormStyle := fsMdiChild; 
    Width := 100; 
    Height := 100; 
    Left := 0; 
    Top := 0; 
  end; 
end;

Das TImage soll auch dierekt bei dem Button klick erstellt werden.

[Markus K.]

Hallo citybreaker,
habe es mal gerade ausprobiert, bei mir funktioniert es so.

Delphi-Quellcode:

var Form: TForm;
    i: integer;
    Bild:TImage;
begin
  Form := TForm.Create(Self);
  Bild := TImage.Create;
  with Form do begin
    Name := 'Bild' + IntToStr(i);
    Caption := Name;
    FormStyle := fsMdiChild;
    Width := 100;
    Height := 100;
    Left := 0;
    Top := 0;
  end;
  with Bild do begin
    Name := 'Bild';
    ...
    
    end;
  Bild.Parent:=Form;
end;

Hoffe, dass es dir weiterhilft.

Tschüß Markus

[citybreaker]

Danke, hat weitergeholfen. Kann ich dem Image jetzt auch noch onmousedown hinzufügen?

[Markus K.]

Das müsste so gehen:
Bild.OnMouseDown:={Prozedur einfügen}; PSu erstellt oben eine Variable I von Typ Integer, du weist ihr aber keinen Wert zu.

Tschüß Markus

[citybreaker]

Zitat von Markus K.:

Das müsste so gehen:
Bild.OnMouseDown:={Prozedur einfügen}; PSu erstellt oben eine Variable I von Typ Integer, du weist ihr aber keinen Wert zu.

Tschüß Markus

Doch hab ich jetzt gemacht i := i +1; damit man mehrer forms anlegen kann.
Das mit der procedure versteh ich jetzt nicht.