|
#1
|
|||
|
|||
Ссылки
Подскажите код
При нажатие на картинку на форме тебя кидает на сайт |
#2
|
||||
|
||||
В USES необходимо включить модули Registry, Shellapi
Код:
procedure OpenURL(Url: string); 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(0, 'open', PChar(ts), PChar(url), nil, SW_SHOW); end; В обработчике событий OnClick компонента Image1 запишем: Код:
begin openurl('http://www.site.ru'); end; Delphicode.org - справочник Delphi Последний раз редактировалось Dux, 11.09.2008 в 03:38. |
#3
|
||||
|
||||
Открыть Wab-страницу в стандартном интернет обозревателе
А не проще выполнить Код:
Uses ShellAPI; ... ShellExecute(Handle,'open','http://CodeLab.3dn.ru',nil,nil,SW_Normal); по нажатию на картинку? |
#4
|
||||
|
||||
Цитата:
Мы не ищем легких путей... хотя, вариант интересный Delphicode.org - справочник Delphi |
#5
|
|||
|
|||
Вот такая ситуация, у меня при всключение компа из автозагрузки загружаеться форма *.exe (программа), постоянно на одном и том же месте, как сделать что бы она оставалась на том месте куда я ее передвинул до перезагрузки компьютера
|
#6
|
||||
|
||||
Ini файлы или записи реестра.
С использованием Ini: В uses добавь модуль IniFiles. В разделе var (где описана главная форма) пиши: Код:
Ini:TIniFile Код:
Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'\data.ini'); Top:=Ini.ReadInteger('FORM','TOP',0); Left:=Ini.ReadInteger('FORM','LEFT',0); Height:=Ini.ReadInteger('FORM','HEIGHT',100); Width:=Ini.ReadInteger('FORM','WIDTH',150); Ini.Free; На событие OnCloseQuery главной формы пиши: Код:
Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'\data.ini'); Ini.WriteIneger('FORM','TOP',Top); Ini.WriteIneger('FORM','LEFT',Left); Ini.WriteIneger('FORM','HEIGHT',Height); Ini.WriteIneger('FORM','WIDTH',Width); Ini.Free; |
#7
|
|||
|
|||
Ini.WriteIneger('FORM','WIDTH',Width);
ты буковку "t" забыл ) |