Grafiken verschieben

[mimi]

Hallo,
ich schreibe gerade ein paintProgramm alles funktioniert prima nur:
ich möchte gerne wenn ich beim erstellen eines objekts, die rechte maustaste drücke soll er die anfangs position verschieben dazu habe ich folgenden qullcode der leider nicht funktioniert :cry:

Delphi-Quellcode:

var
  sx,sy:integer;
begin
  StatusBar1.Panels[0].Text:=IntToStr(x) + '\' + intToStr(y);
  if Shift = [ssleft,ssRight] then begin
     mx:=x; my:=y;
  end;


  if Shift = [ssLeft] then begin
    StatusBar1.Panels[1].Text:=IntToStr(mx-ox) + 'X' + IntToStr(my-oy);
    DrawObjekte(x,y,pmNotXor);
    mx:=x; my:=y;
    DrawObjekte(x,y,pmNotXor);  
  end;
  BitBlt(PaintBox1.Canvas.Handle, 0, 0, bild.Width, bild.Height, bild.Canvas.Handle,0, 0, SrcCopy);

mx und my sind die anfangs positionen des objektes das ich gerne verschieben möchte

[SirThornberry]

was soll:

Delphi-Quellcode:

if Shift = [ssleft,ssRight] then

bewirken? Willst du tatsächlich das Linke UND rechte Maustaste gedrückt sein sollen?
desweiteren würde ich dir empfehlen die Abfrage so zu formulieren

Delphi-Quellcode:

if (ssleft in Shift) and (ssRight in Shift) then

Damit würdest du erreichen das die Bedingung auch erfüllt ist wenn zusätzlich die Ctrl-Taste gedrückt ist (da es ja in deinem bespiel keine rolle spielt ob diese gedrückt ist oder nicht)

[mimi]

ich wollte eigetnlich das linke und rechte maustaste gedrück seinen sollen zum verschieben(aber nur hier)