VPF::new window help - Форум программистов

muratboy31

Дата 1.3.2010, 14:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

i am trying to new window with the same exe using paramstr but it doesnt load the page !!!

Это сообщение отредактировал(а) muratboy31 - 1.3.2010, 16:45

muratboy31

Дата 1.3.2010, 14:55 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

problem is below...

Это сообщение отредактировал(а) muratboy31 - 1.3.2010, 16:46

muratboy31

Дата 1.3.2010, 16:50 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

problem is below !!!

Это сообщение отредактировал(а) muratboy31 - 2.3.2010, 14:22

muratboy31

Дата 2.3.2010, 14:21 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

i dont know if it is possible to do it but can someone please tell me if it is possible or not because on the whole internet i couldnt find an answer for it...
it doesnt open new window with the flash site link becaus it doesnt get the link under mouse cursor... is there anyother way that i can get fired url from the first window !!!

i use this code to get link under mouse cursor:

Код


var
  Form1: TForm1;
  STUrl: String;
  PathAppli: String;
  NameAppli: String;
implementation
  uses
  MSHtml;
{$R *.dfm}

procedure TForm1.EmbeddedWB1NewWindow2(ASender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  MousePos: TPoint;
  HtmlElement: IHTMLElement;
  iHTMLDoc: IHtmlDocument2;
  LinkElement: IHTMLLinkElement;
begin
  if Supports(EmbeddedWB1.Document, IHtmlDocument2, iHTMLDoc) then
  begin
    if GetCursorPos(MousePos) then
    begin
  if Assigned(HtmlElement) then
      begin
        try
         HtmlElement.QueryInterface(IHTMLLinkElement, LinkElement);
          if Assigned(LinkElement) then
            LinkElement.href := STUrl;
          except;
          end;
        end;
    end;
 end;
 Cancel := True;
 ShellExecute(Handle, 'Open', PChar(PathAppli + '\' + NameAppli), PChar(STUrl) , '', SW_SHOWNORMAL);
end;


procedure TForm1.FormShow(Sender: TObject);
var
Param: String;
begin
 Param := ParamStr(1);
  if Param = EmptyStr then
    EmbeddedWB1.Navigate('www.google.com')
  else
  begin
    EmbeddedWB1.Navigate(Param, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  end;
  PathAppli := ExtractFilePath(Application.ExeName);
  NameAppli := ExtractFileName(Application.ExeName);
end;

i will b happy if someone can tell me a better way...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »