unit maibf;
{$WARN SYMBOL_PLATFORM OFF}
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ActiveX, AxCtrls, typemain_TLB, StdVcl,
Vcl.ExtCtrls,
Vcl.StdCtrls,
AdvGlowButton,
Vcl.ImgList, VrControls, VrLevelBar, JvExExtCtrls, NPForm;
type
Ttestproject =
class(TPluginForm, Itestproject)
btnCreateMessage: TAdvGlowButton;
procedure FormShow(Sender: TObject);
procedure btnCreateMessageClick(Sender: TObject);
private
protected
function Get_uname: WideString;
safecall;
procedure Set_uname(
const Value: WideString);
safecall;
function Get_password: WideString;
safecall;
procedure Set_password(
const Value: WideString);
safecall;
{ Private declarations }
public
{ Public declarations }
end;
var
testproject: Ttestproject;
Gname :
string;
password :
string;
implementation
uses ComObj, ComServ;
{$R *.DFM}
{ Ttestproject }
function Ttestproject.Get_uname: WideString;
begin
Result := Gname;
end;
procedure Ttestproject.Set_uname(
const Value: WideString);
begin
Gname := Value;
end;
procedure Ttestproject.btnCreateMessageClick(Sender: TObject);
begin
showmessage(Gname);
end;
procedure Ttestproject.FormShow(Sender: TObject);
begin
end;
function Ttestproject.Get_password: WideString;
begin
Result := password;
end;
procedure Ttestproject.Set_password(
const Value: WideString);
begin
password := Value
end;
initialization
{ Register the form with the plugin framework so that it gets created automatically. }
{ Registering with an empty string means it'll always be created whenever Netscape }
{ creates an instance of a plugin from the plugin DLL. This is the simplest option }
{ and should be used when there is only one TPlugin type in the plugin DLL. However, }
{ you can easily support more than one TPlugin type in a given DLL by registering }
{ several with the appropriate MIME strings. Also, each TPlugin can be created for }
{ multiple different MIME strings. Simply separate each individual MIME string }
{ with a pipe character '|' or a semi-colon, e.g. }
{ 'Application/x-test-pluginA|Application/x-test-pluginB' }
{ In this demo, there is only one plugin and plugin form so an empty string is }
{ passed - when Netscape loads this plugin DLL, this is the TPluginForm that will be }
{ created. }
RegisterPluginForm( '
', Ttestproject) ;
end.