in meinem Projekt gebe ich verschiedene Wörter und Textmarken (Klammern aller Art) auf dem Bildschirm aus, die dann vom User angeklickt werden können. x- und y-Werte dieser 'Objekte' so wie ein Haufen anderes Zeug speicher ich jeweils in eigenen records (TWort und TMarker) bzw. arrays dieser records. Nun würde ich gerne in einer Variable hinterlegen, welches 'Objekt' zuletzt angeklickt wurde. Von welchem Typ das Ding war, weiß ich aber erst zur Laufzeit.
Wie fange ich das an? Ich vermute, es läuft auf pointer raus, aber ich sehe noch nicht, wie ... Ich würde gerne etwas machen wie:
Code: Alles auswählen
var
letztgeklickt: [???]
[...]
procedure Form1.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
[...]
if [...] then letztgeklickt:= [etwas vom Typ TWort]
if [...] then letztgeklickt:= [etwas vom Typ TMarker]