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

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:
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
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)