Hallo,
ich wollte mir eine eigenen kleine komponente basteln.
Hierfür bin ich nach dem tutorial von
dsdt vorgegangen (Link:
http://www.delphi-treff.de/tutorials...en-entwicklen/)
Meine
unit schaut wie folgt aus:
Delphi-Quellcode:
unit ClipBoarder;
interface
uses
SysUtils, Classes, Messages, Windows;
type
TChangeEvent =
procedure(Sender : TObject )
of Object;
TClipBoarder =
class(TComponent)
private
CChangeEvent: TChangeEvent;
procedure ClipChange(
var content: TMessage);
message WM_DRAWCLIPBOARD;
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
property OnChange : TChangeEvent
read CChangeEvent
write CChangeEvent;
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('
Clipboarder', [TClipBoarder]);
end;
procedure TClipBoarder.ClipChange(
var content: TMessage);
begin
OnChange(self);
end;
end.
Wenn ich die kompo dann auf eine forum zieh und im onchange z.b.
ShowMessage('changed');
mache, dann passiert nichts.
Was mach ich falsch?
MfG - Ghost007