onMouseDown Ereignis von Prozeduren aus aufrufen

[rainerkunze124]

Wie kann ich ein OnMouseDown-Erweignis von einer beliebigen Prozedur aus aufrufen?

Die Syntax ist ja

Delphi-Quellcode:

procedure FormName.ObjektOnMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);

Wie greife ich von anderen Prozeduren darauf zu? (Ich habe versucht, irgendeinen Sender anzugeben und einen Button Status. Das hat auch geklappt, jedoch meckert er bei Shift rum, wenn ich da z.B. ssShift schreibe)

[Ultimator]

Du musst auch [ssShift] schreiben, du darfst de eckigen Klammern nicht vergessen

[rainerkunze124]

Danke, werds gleich mal probieren.

[alcaeus]

Hi rainerkunze124,

die Deklaration fuer TShiftState ist folgende:
type TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble); Du musst die Elemente also kombinieren und in Eckige klammern setzen (wie von Ulti gesagt). So kannst du auch mehrere Elemente angeben, z.B. [ssShift, ssLeft] Das bedeutet dann, dass die Linke Maustaste und die Shift-Taste gedrueckt wurden.
Weiters musst du auch beachten, dass X und Y relativ zum Sender sind. Wenn du also 0, 0 uebergibst und dein Sender Panel1 ist, dann ist dies die linke obere Ecke des Panels, und nicht jene des Forms.

Greetz
alcaeus