[Ботаник]

Здравствуйте. я совсем уж новичек. подскажите пожалуйста, как сделать свою кнопку для выхода из приложения? я так понимаю на закрытие формы это надо делать. в инете не нашел, мож запросы неправильно составлял я пока пробую элементарные приложения делать, сделал вот для вычисления счастливый билетик или нет. прога работает, но есть кой какие недочеты в ней. как например сделать чтоб при нажатии на кнопку вычисления или если на интер в поле edit1 нажать, вот как сделать чтоб вычисляло сколько знаков там введено, и если меньше шести то выдавало б сообщение "Введено меньше 6 знаков" и вычисление не производилось бы.
И еще. я сделал в виде билетика вид проги, при этом заголовка окна формы нет (изза чего и кнопку свою для закрытия хочу сделать) и теперь нельзя форму перетаскивать по экрану. какое свойство формы отвечает за то, чтоб можно было перетаскивать форму за любое место, а не только за заголовок?

Извините за такие элементарные вопросы..

[Muxa]

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

[Ботаник]

Спасибо. все сделал кроме проверки на количество введенных знаков. в принципе сделал так что пишет "Меньше шести цифр!" если ввести меньше и нажать кнопку или интер. а как сделать чтоб при этом дальнейшие вычисления не проводились и надпись Счастливый билет или нет не появлялась, пока не знаю

[Muxa]

Знаки : if length(Edit.Text)<6 then...
if ... then exit; - на счет вычислений

[Ботаник]

я делал так :

w := Edit1.GetTextLen;
if w<6 then label10.Caption := 'меньше 6 цифр!!!'
else
chislo := StrToInt(Edit1.Text);
и так далее..

с exit чтото не получается ничего

[Ботаник]

как я сразу не догадался блин. сделал что если w=6 то код вычисления исполняется. ща все вроде работает буду считать что первое свое приложение полностью закончил, спасибо за помощь