Dem Typ TObject eine Property hinzufügen

[s.h.a.r.k]

@Boombuler:
Dass manche Komponenten dann nicht mehr funktionieren hab ich mir fast gedacht, daher hab ich bisher auch nur ein "bisschen" getestet und nicht zu sehr in die Units eingegriffen.
Was ich im Moment mit dem Tag anstelle: Und zwar hab ich zum Bleistift 10 MainMenu Einträge. Jeder Eintrag bekommt einen unterschiedlichen Tag zugewiesen, also von 0-9. Dann schreibe ich eine Procedure, die bei den OnClicks der 10 Einträge ausgeführt wird und frage dann per case-Anweisung ab, um welches Item es sich handelt, also wie folgt:

Delphi-Quellcode:

procedure TForm1.MainMenuTestClick(Sender: TObject);
begin
  case (Sender as TMenuItem).Tag of
    0: { OnClick beim ersten Eintrag }
    begin
      // Do Anthing
    end;

    1: { OnClick beim zweiten Eintrag }
    begin
      // Do Anthing
    end;

    // etc..

  end;
end;

Was du mit dem HighWord und LowWord meinst, weiß ich bisher zwar noch nicht, aber ich werd mich dieser Sache mal genauer annehmen...

@Frickeldrecktuxer_TM:
Hm.. hatte mit Pointer bisher noch nie wirklich viel am Hut, hätte auch gedacht, dass das vielleicht etwas einfacher geht. Finde deine Lösung etwas kompliziert, vor allem weil ich verdammt viele Komponenten auf meiner Form habe!