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?

zusammenfalten · markieren

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.

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

zusammenfalten · markieren

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

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

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

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.