Вопросы по Delphi 2 - [27] :: Прикладное программирование

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2

Модерирует : ShIvADeSt
ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

ShIvADeSt

Moderator

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Продолжение темы http://forum.ru-board.com/topic.cgi?forum=33&topic=3647&start=2020#lt
Внимание, все большие куски кода (более 5 строк) оформляем в тег [more] дабы уменьшить размер поста.

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:52 20-04-2006 | Исправлено: ShIvADeSt, 02:02 30-06-2006

OOD

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

ShIvADeSt
Дело в том, что браузер загружает страничьку , а не ней всегда находяться Java Script ы которые указывают браузеру его дальнейшие действия например на www.ya.ru

Код:

document.web.text.focus();

Вот если этот скрипт исполнить в браузере то будет всё отлично, но как єто сделать?

WebBrowser1.SetFocus; ничего не даёт

Всего записей: 3379 | Зарегистр. 20-05-2006 | Отправлено: 02:16 06-07-2006

greenpc Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору OOD пробуй Подробнее...
	Всего записей: 401 \| Зарегистр. 18-04-2003 \| Отправлено: 07:58 06-07-2006

rs

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

OOD

Цитата:

Проблема с TBrowser

TBrowser - это что за компонент? стороннего производителя?

у меня Delphi 5 - там есть только TWebBrowser - или TBrowser это борландовский вариант для более поздних версий дельфи?

если это отдельный продукт - где его можно скачать?

Всего записей: 1344 | Зарегистр. 19-04-2003 | Отправлено: 08:42 06-07-2006

OOD

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

rsTWebBrowser компонент в 7делфи, полный аналог Internet Explorer, чтобы его установить нужно установить Microsoft Internet Controls (Version 1.1) из меню Component.

greenpcНет-это не помогает, пробовал
Код:

TWebBrowser.SetFocusToDoc;

Всего записей: 3379 | Зарегистр. 20-05-2006 | Отправлено: 09:25 06-07-2006 | Исправлено: OOD, 09:27 06-07-2006

Betorgon Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору А как использовать свой собственный курсор?
	Всего записей: 272 \| Зарегистр. 19-05-2006 \| Отправлено: 14:45 06-07-2006

RostY Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору LoadCursor, LoadCursorFromFile. Например Screen.Cursors[1]:=LoadCursorFromFile('$$$.ani'); Button1.Cursor:=1
	Всего записей: 387 \| Зарегистр. 11-01-2006 \| Отправлено: 16:59 06-07-2006

Betorgon Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Пасибо RostY
	Всего записей: 272 \| Зарегистр. 19-05-2006 \| Отправлено: 00:46 08-07-2006

Larry

Moderator

Есть форма. По нажатии на кнопку должна открываться новая форма, а старая закрываться. Как полностью передать управление приложением новой форме, чтобы по закрытии первой формы вся программа не закрывалась?

Заранее благодарен...

----------
Never put off till tomorrow what can be put off till day after tomorrow just as well

Всего записей: 3119 | Зарегистр. 20-07-2005 | Отправлено: 08:44 08-07-2006

vserd

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Larry

Цитата:

Как полностью передать управление приложением новой форме, чтобы по закрытии первой формы вся программа не закрывалась?

1. Создать скрытую ГЛАВНУЮ ФОРМУ которая не будет закрываться.
2. Не пробовал, но попробуй подменить главную форму в проекте.

Всего записей: 2065 | Зарегистр. 08-05-2002 | Отправлено: 12:01 08-07-2006

paz0r

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

У меня проблема: хочу считать данные из файла находящегося на сайте. Использую для этого компонент idHTTP.
HTTP:=TIdHTTP.Create(nil);
HTTP.HandleRedirects:=True;
HTTP.ProtocolVersion:=pv1_0;
HTTP.ProtocolVersion:=pv1_0;
А что дальше не знаю, как вывести данные, допустим, 3 строки файла в Label? И из любого ли файла можно прочитать эти данные?

Всего записей: 1 | Зарегистр. 15-06-2006 | Отправлено: 13:38 08-07-2006

SERGE_BLIZNUK

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:

По нажатии на кнопку должна открываться новая форма, а старая закрываться.

Предлагаю такой вариант
(у себя проверил, вроде работает... ;-)))
1) в проект добавляем две формы
2) в Project | Options удаляем Form2 из Auto-Create forms
3) в раздел implementation Unit1
добавляем
uses Unit2;
4) на кнопку на форме Form1
вешаем код
Application.CreateForm(TForm2, Form2);
Form2.Show;
FreeAndNil( Form1 )

5) в форме Form2 на событие Close вешаем код
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate
end;

всё...
P.S. а вообще странного хотите ;-))...
По правильному главная форма должна быть! Она может быть невидимой, но должна быть ...

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 13:41 08-07-2006

Larry

Moderator

SERGE_BLIZNUK, спасибо за совет.

Моя задача: есть приложение. В начале есть форма авторизации. Как в 1С. Выбираем тип учетки, имя пользователя и пароль. По идее, главная форма - окно программы. Но в начале должна быть форма авторизации.

Вот это я хочу.

----------
Never put off till tomorrow what can be put off till day after tomorrow just as well

Всего записей: 3119 | Зарегистр. 20-07-2005 | Отправлено: 14:20 08-07-2006

Almaz

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Larry

Цитата:

По идее, главная форма - окно программы

главная форма - первая форма приложения, созданная через Application.CreateForm()
By default, the form created by the first call to CreateForm in a project becomes the application’s main form.
один из способов:
редактируешь ручками файл Project_Name.dpr (вставляешь строчку)

Код:

begin
Application.Initialize;
...
fmLogin := TfmLogin.Create(Application);
...
Application.CreateForm(TfmMainForm, fmMainMainForm);
...
Application.Run;
end

Всего записей: 2219 | Зарегистр. 20-06-2002 | Отправлено: 15:01 08-07-2006

RomanTim

Member

paz0r

Цитата:

У меня проблема: хочу считать данные из файла находящегося на сайте. Использую для этого компонент idHTTP.
А что дальше не знаю, как вывести данные, допустим, 3 строки файла в Label? И из любого ли файла можно прочитать эти данные?

s := HTTP.Get(URL);
И дальше с полученной строкой можешь делать все что хочешь. А из любого можно прочитать или нет - смотря что ты понимаешь под любым, все, к чему можно достучаться из IE, доступно и из программы

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 15:30 08-07-2006

SERGE_BLIZNUK

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Larry

Цитата:

Но в начале должна быть форма авторизации.

с этого и надо было начинать ;-)))

Almaz
полностью с вами согласен.
Только логичнее
Application.CreateForm вызывать в зависимости от успеха логина...

Единственное, расскажу, как у нас в реальном проекте сделано:
Подробнее...

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 17:19 08-07-2006

Almaz

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

SERGE_BLIZNUK

Цитата:

Только логичнее Application.CreateForm вызывать в зависимости от успеха логина...

хотелось показать только сам механизм, без деталей
реализовать можно по-всякому, потому и поставил многоточие
например так (пользуюсь твоим кусочком кода):

Код:

GoodLogin := uzShowLoginForm(3);
if not GoodLogin then
Exit;
// ниже - основная ветвь

мне так больше нравится

Всего записей: 2219 | Зарегистр. 20-06-2002 | Отправлено: 23:26 08-07-2006

OOD

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Как построить механизм постоянного анализатора Memo на наличие определенного символа в нем?

т.е. если в мемо вносить в любую позицию определенный символ , значит произвести каку-либо операцию?

Пробую вот так:

Подробнее...
но не знаю как сделать тут условия для поиска с циколом т.е. пока слово "Запись!" существует в мемо, производить определенную операцию, когда оно исчезает, производить что-либо другое, но как это сделать?

Всего записей: 3379 | Зарегистр. 20-05-2006 | Отправлено: 08:45 10-07-2006

SERGE_BLIZNUK

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:

пока слово "Запись!" существует в мемо, производить определенную операцию

вешайся на onChange и анализируй, анализируй... ;-))))
например, так:

Код:

procedure TForm1.Memo1Change(Sender: TObject);
begin
if Pos('Запись!', Memo1.Text)>0 then Label1.Caption := 'есть '
else Label1.Caption := 'нет '
end;

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 09:26 10-07-2006

FireZone Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору OOD Ну и формулировки. Толком не понял, что нужно. Вот накидал тебе несколько функций. Думаю, поясления не требуются. Подробнее...
	Всего записей: 293 \| Зарегистр. 28-01-2004 \| Отправлено: 09:33 10-07-2006 \| Исправлено: FireZone, 09:35 10-07-2006

OOD

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

SERGE_BLIZNUK
FireZone
Класс как всё просто !Спасибо приогромнейшее

Добавил к этому всему ещё компонент SpVoice из Microsoft Speech Object Library (Version 5.1), правда не на русском, а на английском, но всё же умеет проговаривать содержимое мемо -очень приятно , при написании программ всяких , например чатов

Всего записей: 3379 | Зарегистр. 20-05-2006 | Отправлено: 11:08 10-07-2006

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2
ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC