OnMouseDown Ereignis bei EigButton (abgeleitet von TPanel)

[Nightshade]

Delphi-Quellcode:

unit AButton;

interface

uses
  Classes, Controls, ExtCtrls, Windows;

type
  TAButton = class(TPanel)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
     procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
     procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Beispiele', [TAButton]);
end;

{ TAButton }

{ TAButton }

procedure TAButton.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
  inherited;
  Caption := 'Down';
end;

procedure TAButton.MouseUp(Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
  inherited;
  Caption := 'Up';
end;

end.