mousebar.pas

来自「局域网VCD影院 用DELPHI 编写的 局域网VCD影院」· PAS 代码 · 共 34 行

unit Mousebar;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls;

type
  TMousebar = class(TTrackBar)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
           property OnMouseDown;
           property OnMouseMove;
           property OnMouseUp;
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TMousebar]);
end;

end.