Вопрос № 52399: Здравствуйте уважаемые эксперты!
1)Как сделать в Делфи так чтобы в программе при нажтии клавиши ентр выплнялась операця Imag1.Click?
2)Почему на вкладке Pagecontrol Tab-ы не "воспринимают" Visible:=false;
Пишу в обject inspector...
Вопрос № 52.399
Здравствуйте уважаемые эксперты!
1)Как сделать в Делфи так чтобы в программе при нажтии клавиши ентр выплнялась операця Imag1.Click?
2)Почему на вкладке Pagecontrol Tab-ы не "воспринимают" Visible:=false;
Пишу в обject inspector Visible-false а в программе но как был виден так и остался.
3)Недавно я уже задавал вопрос, но до конца не понял:как работать с веббраузером1 чтобы когда нужно было открывать доп. окно он открывал другую вкладку с tab-om?
Всем спасибо!
Отправлен: 17.08.2006, 10:45
Вопрос задал: SA2006 (статус: Посетитель)
Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Савенко Вадим Иванович
Здравствуйте, SA2006!
2. Для Tab-ов нужно использовать не Visible, а TabVisible.
Ответ отправил: Савенко Вадим Иванович (статус: 8-ой класс)
Ответ отправлен: 17.08.2006, 11:24
Отвечает: Ерёмин Андрей
Здравствуйте, SA2006!
1. Это делается примерно так:
procedure TForm1.Image1Click(Sender: TObject); begin ShowMessage('Image1Click'); end;
procedure TForm1.FormCreate(Sender: TObject); begin
Self.KeyPreview:=True; end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_RETURN then Image1.OnClick(nil); end;
--------- Нет правила без исключений. Правило без исключений - исключение из правил.
Отвечает: Morgen_krsk
Здравствуйте, SA2006!
Для табов Visible относится по-моему к содержимому табов, чтобы бы не видим tab нужно использовать TabVisible.
Ответ отправил: Morgen_krsk (статус: 2-ой класс)
Ответ отправлен: 17.08.2006, 16:17
Отвечает: Сухомлин Кирилл Владимирович
Здравствуйте, SA2006!
На 1 и 2 вам уже ответили, поэтому остается только 3-ий вопрос.
WebBrowser в Delphi - это не совсем то же, что и обычный броузер. Несмотря на то, что программа у вас будет одна, на каждую закладу нужно будет создавать по новому компоненту TWebBrowser.
В приложении код процедуры, в котором ссылка открывается совсем в новом окне. Вам же надо вместо создания нового окна, создать новый TabSheet, а на нем - WebBrowser. Возможно, стоит заранее подготовить новый класс - сразу готовую закладку. И не забудьте правильно присвоить ppDisp значение: NewWebbrowser.DefaultDispatch;
