Forum: Object-Pascal / Delphi-Language
by himitsu,
3. Sep 2012
Wenn es sich nicht kompilieren läßt, dann liegt es wohl weniger am verwendeten Windows, sondern mehr am Compiler.
Forum: Object-Pascal / Delphi-Language
by himitsu,
3. Sep 2012
Achso, das ist nur eine automatisch generierte OCX.
Dachte schon, da wäre mehr Code dahinter.
// statt dem
TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnActivate) - Cardinal(Self);
// kann man notfalls auch Folgendes verwenden
TControlData2(CControlData).FirstEventOfs := Cardinal(@TMethod(FOnActivate).Code) - Cardinal(Self);
(für Win64 ist dieses Cardinal aber natürlich...