Студентам

Подборка с 01.10.2006 по 31.10.2006

Вопрос № 56.691
Подскажите! У меня есть форма с размещенными на ней компонентами. Можно ли создать ее несколько раз (например три) чтобы она одновременно отбражалась на экране в трех экземплярах. Если да то пожалуйста приведите пример кода.
Вопрос ясен. Смотрим ответы.

Отвечает: Н.В.
Здравствуйте, Daft82
Можно создать в приложении три формы с нужными компонентами.
Чтобы при запуске программы показались все три формы, надо у главной формы создать обработчик события OnShow и в него записать код из приложения.
Но также, по-моему, должна быть возможность создать ещё двеформы динамически. Как - честно говоря, не знаю :( .
Удачи!
Приложение:

procedure TForm1.FormShow(Sender: TObject);
begin
  Form2.Show;
  Form3.Show;
end;
{ Обратите внимание, что используется метод Show.
  Он позволяет переключаться между формами в работающем приложении,
  в то время как ShowModal не позволяет переключаться между формами!}

---------
http://TheDelphi.Ru
Ответ отправил: Н.В. (статус: 5-ый класс)
Ответ отправлен: 25.09.2006, 21:37
Супер. Читать вопрос и понимать его - совсем разные вещи. Это нам в очередной раз продемонстрировал товарищ Н.В. Зато изложить свой взгляд на то, что надо вопрошающему - это святое :)

Вопрос № 56.735
Здравствуйте! Подскажите пожалуйста какое событие необходимо обрабатывать чтобы при наведении указателем мыши на пункт меню в StatusBar отображался Hint этого пункта? Или варианты как это сделать? Delphi 7. Заранее спасибо.
Опять смотрим ответы.

Отвечает: Gh0stik
Здравствуйте, Savnick!
Сделайте такой обработчик в FormCreate() и добавьте такие строки:

StatusBar1.Hint:='Message...';
StatusBar1.ShowHint:=True;

Либо можно эти свойства найти в Object Inspector компонента StatusBar.
Удачи!!!
Ответ отправил: Gh0stik (статус: Студент)
Ответ отправлен: 26.09.2006, 10:38
Оценка за ответ: 3
Еще один последователь товарища Kazakh'a. Да еще и написал хуйню не в тему, хотя в дальнейшем проявлял себя весьма адекватным камрадом.
Комментарий оценки:
Как выводить хинты на StatusBar я знаю. А вот как сделать это при наведении указателя мыши на какой-либо пункт меню? Читайте внимательнее вопрос...
А ежели знаешь - хули спрашиваешь?

Отвечает: Melamed
Здравствуйте, Savnick!
У соответственного пункта меню или другого органа управления свойству
Hint присваивается соотствующение сообщение, которое надо выводить, а свойство ShowHint признак вывода подсказки, или нет
Для того, чтобы подсказка выводилась в строке состояния Вам следует допольнительно запрограммировать событие OnHint экземпляра приложения Application (см приложение)
Если данная форма не главнвя, то по ее удалении надо востановить старый обрабодчик этого события. Иначе у Вас будут проблемы.
Приложение:

Form1.FormCreate(Sender :TObject)
begin
  Application.OnHint = ShowHint;
end;

Form1.ShowHint(Sender:TObject)
begin
  StatusBar1.Panel[0].Text = Application.Hint;
end;

Ответ отправил: Melamed (статус: 5-ый класс)
Ответ отправлен: 26.09.2006, 13:54
И еще один...

Вопрос № 57.148
Уважаемые Товарищи Эксперты!
Как проверить на доступность FTP по его IP? И какие компоненты для этого нужны?
P.S.Простите за такой вопрос.
Заранее благодарен, Ustas.
И снова - ответ от мега-эксперта:

Отвечает: Prosto_Blackhowk
Здравствуйте, Ustas!
просто пропингуйте его. Используйте TIdIcmpClient из вкладки IndyClient.

Pinger1.Host:= '195.69.222.132';
pinger1.Ping();
if pinger1.ReplyStatus.TimeToLive <> 0 then showmessage('Ok!')

Ответ отправил: Prosto_Blackhowk (статус: 2-ой класс)
Ответ отправлен: 29.09.2006, 17:17
Оценка за ответ: 5
Комментарий оценки:
Большое спасибо, вы мне очень помогли!

Наебал товарищ Prosto_Blackhowk молодого, а тот и рад. Или я что-то недопонял в вопросе.

Вопрос № 57.271
Здавствуйте эксперты. Есть PageControl в нем несколько TabSheet (1,2,3,4 и т.д.). Как при помощи Button находящимся на TabSheet1 запустить TabSheet2, там выполняются действия, затем TabSheet3 и т.д. Как при помощи Timer (15 сек.) запустить ProgressBar нужно показать, что время идёт? Если можно с кодами.

Мало того, что долбоёб (хотя бы CodeInsight заглянул), так еще и формулировки - пиздец просто. Поразил пассаж "запустить TabSheet2, там выполняются действия".

Вопрос № 57.562
И ещё один вопрос в догонку. Подскажите пожалуйста почему созданная мной база данных не запускается на другом компьютере. Что для этого необходимо сделать. Спасибо.

"Товарищи ученые, у меня в подвале происходит странный стук. Объясните его происхождение."

Вопрос № 58.478
Здравствуйте! Подскажите пожалуйста, я написал программу и теперь мне необходимо, чтоб визуально она не отображалась, и отключить ее можно было бы только завершив процесс в диспетчере задач. Заранее благодарен.
Опять смотрим ответ.

Отвечает: Arvist Здравствуйте, Майтдинов Рашит!
Самый простой способ это установить и исользовать готовый компонент. Я например пользуюсь компонентом CoolTrayIcon который позволяет свернуть приложение в трей, а спрятав значок в трее сделать приложение вообще невидимым (можете написать мне в личку письмо с вашим емэйлом и я вышлю вам компонент).
---------
В будущем определено одно - неопределенность будущего!
Ответ отправил: Arvist (статус: 3-ий класс)
Ответ отправлен: 11.10.2006, 10:17

СУ-У-У-УУУУУКА!!!! Ламероза, ёбаный в уши однояйцевыми близнецами!!! А потом начинается - "где взять компонент, который помещает льва в клетку?"
Только массовые расстрелы спасут Родину

Вопрос № 58.561
Уважаемые эксперты.
Подскажите, что представляет из себя программа Delphi, и есть ли она в ОС Windows XP. Если да-то где её искать.
Зарание благодарен.

Без комментариев.

Вопрос № 58.587
Не нашёл в Инете. Подскажите, как использовать многоядерность (или Hiper Threading) в Delphi? P. S. Данная рассылка - лидер по количеству экспертов среди яз-в программирования.

Про язвы программирования - это он лихо загнул...

Вопрос № 58.623
Здравствуйте! У меня снова вопрос, с которым мне одному не справится, как сделать так чтобы программа, которую я написал на Delphi, самостоятельно запускалась при загрузке Windows, другими словами, чтоб была службой. Заранее спасибо за помощь!

Учим мат.часть. Хотя ладно, молодой еще, наверное...