TImage dynamisch auf TImage erstellen...

[NetSonic]

Danke Tormentor32 für den Tipp mit Parent... hab ich total übersehen!
Jetzt funzt es perfekt!

Delphi-Quellcode:

procedure TfrmLageplan.imgLageplanMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
   imgDecoder: TImage;
begin
     //Decoder an Mauskoordinaten erstellen
     imgDecoder := TImage.Create(Self);
     with imgDecoder do
     begin
          name    := 'Standort';
          parent := self;
          Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + '\img\' + 'aktiv.bmp');
          autosize := true;
          visible := true;
          left     := X;
          top    := Y;
     end;
end;