Parent Abfrage

**Antonov**

Hallo.

Ich hantiere schon seit zwei Tagen mit dem Problem herum, dass ich eine simple Abfrage nicht durchführen kann.
Foren und Internet haben mich nicht sonderlich weiter gebracht ... wahrscheinlich liegt es wieder an einem trivialen Fehler oder ich bin zu blöd (ich bin etwa 4 Wochen alt, was Delphi Kenntnisse angeht).

Folgender Sachverhalt:
Ich habe vor, sagen wir, ein Bild zu bewegen mit MouseDown/Move/Up. Jetzt möchte ich Bilder, die auf einer Scrollbox liegen, NUR in X-Richtung hin und her schieben, und alle anderen Bilder (die auf der Form liegen) in beide Richtungen.
Dazu habe ich mir eine Abfrage gebastelt, die schaut, wer das Parent des jeweiligen Bildes ist.
Dort ist der Haken.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.CustomImageMouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);     //CustomImageMouseDown/Move ist die custom Procedure für mehrere Bilder

begin

        MoveTag:= TImage(Sender).Tag;

        MovingImage:= CardPanel[MoveTag];     //das Image liegt auf einem Panel drauf, also MovingImage ist eig. das Panel

        MouseMoveDown := true;

        GetCursorPos(OldPos);

        DiffX := OldPos.X - MovingImage.Left ;

        DiffY := OldPos.Y - MovingImage.Top ;

end;

procedure TForm1.CustomImageMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

      GetCursorPos(OldPos);

     if MouseMoveDown = true then

     begin

         MovingImage.Left := OldPos.X - DiffX ;        //Immer in X-Richtung

         if GetParent(MovingImage.Handle) is ((P1Scrollbox) or (P2Scrollbox)) then

          begin

           MovingImage.Top :=  OldPos.Y - DiffY;       //Nur wenn NICHT auf einer ScrollHand

          end;

     end;

end;

Der Compiler sagt:
"[Pascal Fehler] MovingImages.pas(511): E2015 Operator ist auf diesen Operandentyp nicht anwendbar."
Der Fehler liegt laut Compiler in der If Parent Abfrage.
Ich habe gehört, dass man das .Handle irgendwie braucht, aber so richtig bin ich da nicht durchgestiegen.

Die Lösung des Problems ist für mich nicht lebenswichtig, da ich immer noch "schummeln" könnte, und in den Hint jedes Objektes einfach sein Parent (oder irgendein Erkennungsmerkmal) reinschreibe beim Erzeugen zur Laufzeit. Aber ich halte das nicht für Elegant, außerdem habe ich nicht unendlich viele Hint-Plätze pro Objekt zur Verfügung.

Wenn das Problem wirklich zu trivial ist oder per Tutorial zu lösen wäre, schlagt zu und schickt mich zu den Tutorials zurück!
...aber ich freue mich gerne über Beiträge!

Parent Abfrage

Parent Abfrage

Forumregeln