AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi TImage dynamisch auf TImage erstellen...
Thema durchsuchen
Ansicht
Themen-Optionen

TImage dynamisch auf TImage erstellen...

Ein Thema von NetSonic · begonnen am 15. Mai 2007 · letzter Beitrag vom 15. Mai 2007
 
NetSonic

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

TImage dynamisch auf TImage erstellen...

  Alt 15. Mai 2007, 11:20
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?
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:58 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz