Einzelnen Beitrag anzeigen

NetSonic

Registriert seit: 10. Mai 2007
124 Beiträge
 
Delphi 10 Seattle Professional
 
#4

Re: TImage dynamisch auf TImage erstellen...

  Alt 15. Mai 2007, 12:29
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;
  Mit Zitat antworten Zitat