Wie verbinden Sie 20 Formen zu einem einzigen "OnMouseDown"?

Ich habe ein Delphi-Programm, das den folgenden Code enthält:Wie verbinden Sie 20 Formen zu einem einzigen "OnMouseDown"?

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton; 
    Shift: TShiftState; X, Y: Integer); 
begin 
    <code here> 
end;

Sache ist, mag ich den exakt gleichen Code für alle 20 Formen. Wie kann ich das effektiv durchführen? Vielen Dank!

Quelle

2012-04-12 argoneus

Verwendung Multi-Select (z SHIFT + Klick, oder klicken und ein Auswahlrechteck ziehen) alle 20 Formen zu wählen.
Setzen Sie im Objektinspektor den Ereignishandler OnMouseDown auf den allgemeinen Ereignishandler. Dadurch wird allen 20 ausgewählten Formen derselbe Ereignishandler zugewiesen.
Wenn Sie wissen möchten, welche Form in Ihrem allgemeinen Ereignishandler angeklickt wurde, verwenden Sie (Sender as TShape).

Quelle

2012-04-12 09:36:55

Ich habe gerade versucht, dass ich alle 20 von ihnen ausgewählt und dann die OnMouseDown doppelgeklickt, aber der resultierende Code ist genau das gleiche .. – argoneus

Das ist richtig. Aber jetzt ist der einzelne Event-Handler an alle 20 Buttons angehängt. –

Ohhhh, ich verstehe! Vielen Dank, die Dinge erleichtern: D Gibt es übrigens eine Möglichkeit, diesen Prozess manuell mit Code auszuführen (einen gemeinsamen Event-Handler zu setzen)? – argoneus

Wie verbinden Sie 20 Formen zu einem einzigen "OnMouseDown"?

Antwort

Verwandte Themen