VPF::trying to open new page in new window - Форум программистов

amsoft

Дата 13.2.2010, 19:44 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 201
Регистрация: 17.10.2009
Где: KZ, Astana

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

You can use any string as parameter

--------------------

"Кто бы ты ни был - не думай о себе слишком"Дельфин

muratboy31

Дата 14.2.2010, 00:24 (ссылка)

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

Загрузка ...

Бывалый

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

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

am i doing it wrong ?

Код


procedure TForm1.FormCreate(Sender: TObject);
var  
  ini1 : TINIFile;
  S : string;
begin
  S := ParamStr(1);
  ini1 := TINIFile.Create( ExtractFilePath(Application.ExeName)+'Ayar.INI ');
  S:= ini1.ReadString('AnaSayfa','Adres','');
  ini1.Free;
  CreateNewTabBrowser(S);
end;

amsoft

Дата 14.2.2010, 12:08 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 201
Регистрация: 17.10.2009
Где: KZ, Astana

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

if you work with ini-file so simply read needed parameter directly from this file.
it's not nessesary to send any parameter in this case

Добавлено через 3 минуты и 48 секунд
Discribe what you want.
Your application must open file which name is in parameter or just open file which name is in ini-file.

--------------------

"Кто бы ты ни был - не думай о себе слишком"Дельфин

muratboy31

Дата 14.2.2010, 13:09 (ссылка)

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

Загрузка ...

Бывалый

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

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

you know internet explorer has a function that opens the link in a new window of internet explorer...
i want to make the same thing with my browser but open the link with my browser's new window not internet explorer...

amsoft

Дата 14.2.2010, 20:44 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 201
Регистрация: 17.10.2009
Где: KZ, Astana

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

In your case during application start first check sended parameter (ParamStr(1)).
If this parameter is not empty than load file which name is in the parameter.
If this parameter is empty than load file which name is in ini-file.

--------------------

"Кто бы ты ни был - не думай о себе слишком"Дельфин

muratboy31

Дата 15.2.2010, 17:42 (ссылка)

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

Загрузка ...

Бывалый

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

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

i tried this also but it didnt work either... smile

it doesnt open my project window !!!

Код


procedure Tform1.NewWindowEvent(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
var
ts: string;
begin
with TRegistry.Create do
try
rootkey := HKEY_CLASSES_ROOT;
OpenKey('\htmlfile\shell\open\command', False);
try
ts := ReadString('');
except
ts := '';
end;
CloseKey;
finally
Free;
end;
if ts = '' then Exit;
ts := Copy(ts, Pos('"', ts) + 1, Length(ts));
ts := Copy(ts, 1, Pos('"', ts) - 1);
ShellExecute(self.WindowHandle, 'open', PChar(ts), PChar(GetActiveEWB.DefaultDispatch), nil, SW_SHOW);
end;

muratboy31

Дата 15.2.2010, 18:24 (ссылка)

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

Загрузка ...

Бывалый

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

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

can u please help me with the example attached ?
right click on any link on the page and choose open in new window...

Это сообщение отредактировал(а) muratboy31 - 16.2.2010, 00:49

Присоединённый файл ( Кол-во скачиваний: 10 )

newwindow.rar 248,30 Kb

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