Wie kann ich Objekte zur Laufzeit verschiebe?

[Khabarakh]

Zitat von Aurus:

Hallo zusammen


In zum Beispiel beim Objekt "Scrollbar" kein Erreignis "MouseMove". Wie soll ich dann hier was zuweisen um das Objekt dann bewegen zu können ?


Gruss

Aurus

Auch bei TScrollBar gibt es das Ereignis, allerdings ist es "protected". Wenn du die Komponenten nicht ableiten willst, musst du einen Classhack zu Hilfe nehmen:

Delphi-Quellcode:

type
  TControlHack = class(TControl);

[...]

  TControlHack(ScrollBar1).OnMouseMove := ...;