Also das man das Label mit .Top und .left verschieben kann weis ich auch
Folgende Situation:
Ich habe ein Hintergrundbild (TImage). Auf diesem Bild soll der Anwender per Maus labels und weitere bilder erstellen, verschieben und größe ändern können wie in der
IDE. Das mit den Bildern geht mit einem Image auf einem Panel
Delphi-Quellcode:
procedure TForm1.WinControlMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (Sender is TImage) then Sender:=(Sender as TImage).Parent;
if (Sender is TWinControl) then
begin
ReleaseCapture; //Fängt alle Mausereignisse ab
TWinControl(Sender).Perform(WM_SysCommand, $F012, 0);
end;
end;
mit der Maus verschoben werden kann.
ein Label ist aber kein TWinControl somit geht das nicht.
Jetzt verstanden?