bmp bewegen

[quxy]

Hi habe folgendes Problem:
Ich möchte, dass sich ein bild(in Imagekomponente) bewegt, wenn ich mit dem cursor draufklicke und diesen dann bewege.
weiss jemand ob und wenn wie das funktioniert?

[mkinzler]

Willst du die Komponente oder das Bild darin bewegen?

[quxy]

im grunde genommen beides, also die komponente

[RobertP]

Also du meinst das man das Bild quasi mit der Maus "ziehen" kann? Guck dir mal die Drag&Drop Events an. Hab ich aber selber noch nie mit gearbeitet also kann ich nix zu sagen ^^

[quxy]

Hi, danke für den Tipp..hab es geschafft allerdings ist das Problem, dass sich so immer nur ein Bild bewegen
lässt...

Delphi-Quellcode:

procedure TForm1.dragdrop(Sender, Source: TObject; X, Y: Integer);
begin
if Source is TImage then
  begin
    TImage(Source).Left := x;
    TImage(Source).Top  := y;
    TImage(Source).Parent := TWinControl(Sender);
  end
end;

procedure TForm1.dragover(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
accept := (source is TImage);
end;

procedure TForm1.HexenMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
If Button=mbleft Then  Hexen2.BeginDrag(false);
end;

so sieht mein quelltext momentan aus...bei jedem Bild habe ich für MouseDown - HexenMouseDown...
anders geht es auch nicht,es wird immer für alle die gleiche procedure gewählt - automatisch.
gibt es dafür irgend eine andere lösung?

[quxy]

Vllt. fällt es einfacher mir zu helfen wenn ich kurz darlege was ich überhaupt vorhabe :)
Ich möchte (erstmal nur) eine Simulation für das sogennate "Hexenspiel" erstellen.
Dabei soll es möglich sein, die 9 verschiedenen Karten bzw Bilder zu drehen und zu verschieben.
ich bin soweit, dass man jeweils ein Bild drehen kann und auch verschieben kann. Allerdings weiß ich nicht wie ich nun das gleiche für die anderen bilder erreichen soll...habe das programm mal in den Anhang gemacht vllt hilft es euch.

vielen dank für die mühe

[Cöster]

Zitat:

Zitat von quxy

Hi, danke für den Tipp..hab es geschafft allerdings ist das Problem, dass sich so immer nur ein Bild bewegen lässt...

Delphi-Quellcode:

{...}
procedure TForm1.HexenMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
If Button=mbleft Then  Hexen2.BeginDrag(false);
end;

Probier's doch mal so:

Delphi-Quellcode:

procedure TForm1.HexenMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
If Button=mbleft Then  TImage(Sender).BeginDrag(false);
end;

[quxy]

ahh ich bin soo dumm^^ danke,du hast soeben alle meine probleme gelöst :)))