|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Кнопка закрыть форму?
Здравствуйте. я совсем уж новичек. подскажите пожалуйста, как сделать свою кнопку для выхода из приложения? я так понимаю на закрытие формы это надо делать. в инете не нашел, мож запросы неправильно составлял я пока пробую элементарные приложения делать, сделал вот для вычисления счастливый билетик или нет. прога работает, но есть кой какие недочеты в ней. как например сделать чтоб при нажатии на кнопку вычисления или если на интер в поле edit1 нажать, вот как сделать чтоб вычисляло сколько знаков там введено, и если меньше шести то выдавало б сообщение "Введено меньше 6 знаков" и вычисление не производилось бы.
И еще. я сделал в виде билетика вид проги, при этом заголовка окна формы нет (изза чего и кнопку свою для закрытия хочу сделать) и теперь нельзя форму перетаскивать по экрану. какое свойство формы отвечает за то, чтоб можно было перетаскивать форму за любое место, а не только за заголовок? Извините за такие элементарные вопросы.. |
#2
|
|||
|
|||
1. MainForm.Close или Application.Terminate.
2. Используй функцию length. 3. http://www.helloworld.ru/texts/comp/...st/ddigest.htm http://www.cracklab.ru/f/index.php?a...=6&topic=13737 |
#3
|
|||
|
|||
Спасибо. все сделал кроме проверки на количество введенных знаков. в принципе сделал так что пишет "Меньше шести цифр!" если ввести меньше и нажать кнопку или интер. а как сделать чтоб при этом дальнейшие вычисления не проводились и надпись Счастливый билет или нет не появлялась, пока не знаю
|
#4
|
|||
|
|||
Знаки : if length(Edit.Text)<6 then...
if ... then exit; - на счет вычислений |
#5
|
|||
|
|||
я делал так :
w := Edit1.GetTextLen; if w<6 then label10.Caption := 'меньше 6 цифр!!!' else chislo := StrToInt(Edit1.Text); и так далее.. с exit чтото не получается ничего |
#6
|
|||
|
|||
как я сразу не догадался блин. сделал что если w=6 то код вычисления исполняется. ща все вроде работает буду считать что первое свое приложение полностью закончил, спасибо за помощь
|