TPoerbutton ereigniss wird permanent ausgeführt:

[CTV]

ich hab ez mal das eingebaut:

Delphi-Quellcode:

..
private
    i:integer;
..

constructor TPowerButton.create(AOwner : TComponent); 
begin 
  inherited Create(AOwner); 
  i:=1;
  FHooked := False; 
  if not (csDesigning in ComponentState) then 
  begin 
    Application.HookMainWindow(MessageHook); 
    FHooked := True; 
  end; 
end

...

Procedure TPowerButton.DoPowerbuttonPress;
begin
  if i>5 then
  begin
    if Assigned(FOnPowerbuttonPress) then FOnPowerbuttonPress(Self);
  end;
  inc(i);
end;

...

Nun funktionierts jedoch kann das ja nicht die lösung sein oder ? das ist eher ein gebastel mich nimmts wunder wieso das genau 5 mal ausgeführt wird

Greetz Cyrus