🚀 go-pugleaf

Hello

 I have been trying to make an ActiveX Control to be used on a WEB Page.
And I face some problems.

1. I would like to control the ActiveX control with JavaScript.
But an  ActiveX Control converted from VCL is not script safe. So,
it is rejected unless I lower the security level of my browser.
How can I make an ActiveX control that is script safe?

2. An ActiveX control made with Delphi3 does not seem to understand
the <PARAM> tag in an HTML file. All the information of parameters are
encoded into DATA=... part within <Object> tag. 
Is there any way to have it understand <PARAM> tag? 

3. Is it possible to make an ActiveX control without window handle? (
something like preloader at MS's WEB page.)

4. The ActiveX control made from the following code works fine on 
Delphi, MSIE and VB, but not exactly on ActiveX Control Pad. 
(You can see the ActiveX control at
http://www.solution.co.jp/ac/ishii/AXtest/ 
if you lower the security level of your browser.)
The Paint method is called and a circle is drawn  only when 
the Paint event is called  from windows (for example, when 
the control is resized  (maybe when Invalidate is called) ).
If I replace the "Sendmessage(...)" with "Invalidate", it works on
ActiveX control Pad, but then it starts blinking.
Could anyone tell me why this happens and how I can solve this problem?


Thanks in advance

---- Code of the Control in item4------

unit testpaint;

interface

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

type
  Ttestpaint = class(TCustomPanel)
  private
   i: integer;
   mytimer: TTimer;
   procedure PaintEvent(Sender:TObject);
    {Private}
  protected
    {Protected}
  public
   constructor Create(Owner:Tcomponent); override;
   destructor Destroy; override;
   procedure Paint; override;
    {Public}
  published
    {Published}
  end;

procedure Register;

implementation

constructor TtestPaint.Create(Owner:Tcomponent);
begin
 inherited Create(Owner);
 mytimer:=TTimer.Create(self);
 mytimer.interval:=1000;
 mytimer.OnTimer:=PaintEvent;
 i:=20;
end;


destructor Ttestpaint.Destroy;
begin
 mytimer.free;
 inherited Destroy;
end;

procedure Ttestpaint.PaintEvent(Sender:TObject);
begin
 // If I replace the following line with "Invalidate",
 //it works on ActiveX Control Pad.
 // But then, it starts blinking.
 SendMessage(Handle,Wm_Paint,Canvas.Handle,0);
end;

procedure Ttestpaint.Paint;
begin
 canvas.ellipse(0,0,i,i);
 i:=(i+20) mod 200;
end;



procedure Register;
begin
  RegisterComponents('Samples', [Ttestpaint]);
end;

end.