Objekt kopieren

[Tanadirian]

Ich habe mehrere Images und eine Paintbox und will das man beim Drag&Drop statt des Mauszeigers das gezogene Image sieht. Deshalb erstelle ich ein neues Image dem ich das Picture des angeklickten Pictures zuweise und will es dann mit der Maus bewegen.
Hier der Code um das neue Image zu erstellen:

Delphi-Quellcode:

procedure TForm1.ImageXMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var ImageXCopy:TImage;
begin
ImageXCopy:=TImage.Create(TImage(Sender));
ImageXCopy.Left:=x;
ImageXCopy.Top:=y;
ImageXCopy.Picture.Assign(TImage(Sender).Picture);
ImageXCopy.BringToFront;
end;

Aber das neue Image wird nicht angezeigt. Woran könnte es liegen? Ich habe bisher noch nie Objekte kopiert.

mfG Tanadirian

[Bitworm]

Hi !

So wie ich das sehe ist Parent nicht gesetzt. Füge mal

Code:

ImageXCopy.Parent := TImage(Sender).Parent;

ein. Damit sollte es dann klappen (nicht getestet, aus dem Bauch raus).

[Tanadirian]

Jo, jetzt gehts, dankeschön!

mfG Tanadirian

[Luckie]

Wichtig zum Verständnis: Der Owner ist für den Speicher verantwortlich und der Parent für das Zeichnen.

[Tanadirian]

Ah gut zu wissen.
Jetzt hab ich auch gleich das nächste prob, ich will dem neuen Image eine Ereignissprozedur zuweisen

ImageXCopy.OnMouseMove:=TForm1.ImageXMouseMove(TImage(Sender), ssLeft ,TImage(Sender).Left,TImage(Sender).Top); aber bei ssLeft bekomme ich die Fehlermeldung:
"Inkompatible Typen: 'TShiftState' und 'Enumeration'" wieso das? ssLeft ist doch ein mgl Wert von TShiftState.

[Gruber_Hans_12345]

probier

ImageXCopy.OnMouseMove:=TForm1.ImageXMouseMove(TImage(Sender), [ssLeft] ,TImage(Sender).Left,TImage(Sender).Top);

[Tanadirian]

Danke, jetzt bekomme ich aber die Meldung " Diese Form des Methodenaufrufs ist nur für Klassenmethoden erlaubt"

[scp]

Warum gibts du bei der Zuweisung Parameter an und noch TForm1.? Normalerweise sollte es doch so aussehen:
ImageXCopy.OnMouseMove := ImageXMouseMove;

[Tanadirian]

Mhh, jetzt gehts, ich dachte man müsste wie bei einer Funktion die Parameter mit übergeben und ohne Form1 hat er gemeckert!

Dankeschön

mfg Tanadirian