nichts

Squicky · Hält's aus hier Beiträge: 1

nichts

Andreas Pfau · Beiträge: 997

Probier das, müsste funzen:

Quelltext

1:
2:
3:
4:
5:
6:

TFigut = class(TShape)
  { ... }
published
  { ... }
  property OnMouseUp;
  { ... }

[/quote]

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Quelltext

1:
2:
3:
4:
5:
6:
7:

Var
  Test: tFigut;
Begin
  Test := tFigut.Create (Self);
  Test.Parent := Self;
  Test.OnMouseUp := DoMouseUp;
  {...}

In Deiner Form-Deklaration musst Du dann noch manuel die DoMouseUp-Procedure erstellen.

Gruß
TINO