Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - nichts

Squicky - Fr 28.02.03 14:11
Titel: nichts

nichts

Andreas Pfau - Fr 28.02.03 20:36

Probier das, müsste funzen:

Quelltext

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

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

[/quote]

Tino - Sa 01.03.03 13:08

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

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!