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:
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?