ychatu16.pas

来自「Yahoo Messenger for Mobile」· PAS 代码 · 共 51 行

unit YchatU16;

interface

uses
  Windows, Messages, SysUtils,  Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls,  DynamicSkinForm, SHDocVw;

type
  TForm16 = class(TForm)
    procedure WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
      var Cancel: WordBool);
    procedure FormCreate(Sender: TObject);
  private
      procedure CreateParams(var Params : TCreateParams); override;
    { Private declarations }
  public
   CastingVote: Boolean;
    { Public declarations }
  end;

var
  Form16: TForm16;

implementation

uses YchatU1;

{$R *.dfm}

procedure TForm16.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
//  Params.WndParent := GetDeskTopWindow;
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;


procedure TForm16.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
 Cancel:=True;
end;

procedure TForm16.FormCreate(Sender: TObject);
begin
 CastingVote:=False;
end;

end.