Folgende Problemstellung:

Ich habe eine MDI-Child-Form auf der sich eine TImage-Komponente befindet, die einen Lageplan in Form einer JPG-Datei enthält.
Wenn ich nun mit der linken Maustaste auf diese Image-Kompo klicke, soll mir das Programm eine weiteres TImage mit einer anderen Grafik an den Mauskoordinaten erstellen und über dem Lageplan anzeigen. Das ganze sieht bisher so aus:

zusammenfalten · markieren

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';
          Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + '\img\' + 'aktiv.bmp');
          autosize := true;
          visible := true;
          left := X;
          top := Y;
     end;
end;

Die Komponente wird auch erstellt, denn wenn ich ein weiteres Mal klicke, meldet er, dass eine Komponente mit dem Namen "Standort" bereits existiert. Allerdings zeigt er mir die dynamisch erzeugte TImage-Komponente nicht an? Denkfehler? Was mach ich falsch?

Parent setzen oder .Show aufrufen? (Weiß nicht, probiers mal)

Die Meldung daß bereits eine solche existiert ist ja auch richtig. Besser einmal anlegen und wiederverwenden als für jeden Mausklick extra Speicher verquasen und nicht wieder freigeben.

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

zusammenfalten · markieren

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;

Siehe Hinweis weiter oben, das ist sehr weit weg von "perfekt", das ist immer noch ein Speicherloch!

Ich muss das so oder so noch überarbeiten, weil ich auf dem "Lageplan" bis 255 "Standorte" anlegen können muss... Die bekommen dann im Namen fortlaufende Nummern.

eigentlich brauchen sie gar keinen Namen denn um die Standortbilder wieder frei geben zu können musst du sie ja in ein Array oder eine Liste hängen und somit kannst du sie darüber jederzeit ansprechen (für Freigaben etc.)