Вопрос № 157745: Уважаемые эксперты, помогите пожалуйста, разобраться. Создать кнопку получилось, но как записать для нее код например закрытие окна или вызов какого нибудь сообщения еще, что нибудь в этом роде. С уважением, Саша. Киров....
Вопрос № 157809: Здравствуйте уважаемые эксперты. Помогите в решении проблемки. Я написал программу на делфи и хочу фиксировать размеры её окна, т.е. исключить возможность растягивания или разворачивания
на весь экран окошка. Заранее спасибо за помощь....Вопрос № 157840: Программирую в Delphi вконсольном режиме. Подсказали что для перекодировки из ascci в ansi не надо подключать доп. модули. а есть стандартные функции. Пишу след. текст: program Project2; {$APPTYPE CONSOLE} uses SysUtils; begi...
Вопрос № 157.745
Уважаемые эксперты, помогите пожалуйста, разобраться. Создать кнопку получилось, но как записать для нее код например закрытие окна или вызов какого нибудь сообщения еще, что нибудь в этом роде. С уважением, Саша. Киров.
Отвечает: Вахобов Джамшед Ахадович
Здравствуйте, Александр Владимирович Едигарев! В приложение пример для закрытия форма. Таким образом можно создать и другие действия над форма мы или .... Удачи !
#thank 241256 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Отвечает: Del
Здравствуйте, Александр Владимирович Едигарев!
В двух словах и упрощенно (ничего, что я в дальнейшем на "ты"? Фидошная привычка).
Необходимо написать (в твоем случае) методы формы - простые процедуры, но с параметрами, которые потребуются, чтобы использовать такую процедуру в качестве обработчика событий. Какие параметры необходимы в каждом конкретном случае, ты можешь узнать, создав в disign-time нужный компонент и создав для него обработчик нужного события. Т.е., тебе надо нарисовать
на форме кнопку и сделать ей обработчик события OnClick.
У тебя появится процедура с одним параметром - Sender: TObject (скажу по секрету - OnClick и множество других событий работают ровно с такими же параметрами).
Все, мы выяснили, как должна быть оформлена процедура-обработчик. Теперь её можно стереть. Так же можно (и наверное даже нужно) убрать кнопку с формы. Поехали писать код. Двигай в раздел описания формы.
В private или public пиши такое: procedure MyButtonClick(Sender: TObject);
Дави Ctrl+C. У тебя в implementation появится болванка процедуры (но ты это и без меня знаешь60). Вот в ней и пиши всё, что тебе нужно (например - Close - закрыть форму).
Далее. Вновь созданной кнопке mybutton надо объяснить, что произойдет, когда она будет нажата. Для этого напиши:
mybutton.OnClick := MyButtonClick;
Именно вот так, без скобок и прочего.
PS. Лирическое отступление: чуть выше я сказал, что объявить процедуру можно
либо в public, либо в private (на самом деле не только там, но это - самое распространенное). В чем разница: если ты объявишь процедуру в public, то её можно будет использовать не только в этой форме (читай - юните), но и в других, использующих этот юнит. А если в привате - то только вот тут, и нигде больше.
Удачи!
--------- Только массовые расстрелы спасут Родину!
Ответ отправил: Del (статус: 3-й класс)
Ответ отправлен: 16.01.2009, 00:04
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 241318 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 157.809
Здравствуйте уважаемые эксперты. Помогите в решении проблемки. Я написал программу на делфи и хочу фиксировать размеры её окна, т.е. исключить возможность растягивания или разворачивания на весь экран окошка. Заранее спасибо за помощь.
Отправлен: 15.01.2009, 21:00
Вопрос задал: Krash (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Del
Здравствуйте, Krash!
Твой Ваш выбор - у формы поставить BorderStyle := bsSingle и убрать кнопку Maximize (BorderIcons := [biSystemMenu,biMinimize]). Это - самый лучший вариант. Проще - BorderStyle := bsDIalog, но тогда не будет кнопки "Свернуть" и иконки в заголовке формы.
Удачи!
Исправлено обращение.
--------
∙ Отредактировал: Николай Владимирович / Н.В., Академик
∙ Дата редактирования: 15.01.2009, 23:50 (время московское)
--------- Только массовые расстрелы спасут Родину!
Ответ отправил: Del (статус: 3-й класс)
Ответ отправлен: 15.01.2009, 23:46
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 241314 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 4
Отвечает: Вахобов Джамшед Ахадович
Здравствуйте, Krash! Это можно сделать в свойствах формы BorderIcons: biSystemMenu - иконка для закрытые окна, biMinimize - иконка для сворачивания, biMaximize - для разворачивания, biHelp - иконка для справок. Значение: True - показывать, False - не показывать. Для фиксации размер формы в свойствах BorderStyle > bsSingle. Удачи
#thank 241387 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 157.840
Программирую в Delphi вконсольном режиме. Подсказали что для перекодировки из ascci в ansi не надо подключать доп. модули. а есть стандартные функции. Пишу след. текст: program Project2; {$APPTYPE CONSOLE} uses SysUtils; begin writeln(OemtoAnsi('Привет Elabuga')); readln; end. Выдает ошибку. Почему? Помогите, пожалуйста
Отправлен: 16.01.2009, 07:20
Вопрос задала: Shlandysh (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Шичко Игорь
Здравствуйте, Shlandysh! Использование данной функции немного не такое. Примерный код в приложении. Для работы с этой функцией необходимо использовать модуль Windows.
Приложение:
Ответ отправил: Шичко Игорь (статус: Практикант)
Ответ отправлен: 16.01.2009, 09:40
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 241338 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5 Комментарий оценки: Спасибо!!!! Вы мне очень помогли решить вопрос
Скажите "спасибо" эксперту, который помог Вам!
Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.