Подборка с 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, другими словами, чтоб была службой. Заранее спасибо за помощь!
Учим мат.часть. Хотя ладно, молодой еще, наверное...
