unit MyFlash;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, OleCtrls,
ShockwaveFlashObjects_TLB;
type
TMyFlash = class(TShockwaveFlash)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
procedure TWMRBUTTONDOWN(var msg:TMsg)
message WM_RBUTTONDOWN;
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TMyFlash]);
end;
{ TMyFlash }
procedure TMyFlash.TWMRBUTTONDOWN(var msg: TMsg);
begin
//
end;
end.
