Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1119
от 12.04.2008, 16:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 447, Экспертов: 53
В номере:Вопросов: 2, Ответов: 5

Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>


Вопрос № 130950: Здравствуйте уважаемые эксперты.....У меня к Вам есть такой вапросик. В программе на первой форме в обработчике кнопки примерно такой код: if Edit1.Text = 'Abrakadabra' then Form2.Show else Application.Terminate; Вчер...
Вопрос № 130994: здравствуйте. я опять по Delphi , так как в нем новичок :) вот такая ошибка [Error] Unit1.pas(314): Too many actual parameters что мне сделать? со всем рабзобрался, но вот это меня выбило из колеи. заранее спасибо. BM, Grad(AI), z1.... переме...

Вопрос № 130.950
Здравствуйте уважаемые эксперты.....У меня к Вам есть такой вапросик. В программе на первой форме в обработчике кнопки примерно такой код:

if Edit1.Text = 'Abrakadabra' then
Form2.Show
else
Application.Terminate;

Вчера весь вечер бился, не смог понять, как мне сделать чтоб при нажатии Enter, а не кликая на кнопку у меня выходил тот же результат.
OnEnter пробовал, не получается. Программа почемуто закрывается сразу после запуска......((((((

С уважением sefiros
Отправлен: 07.04.2008, 08:45
Вопрос задал: Sefiros (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Mishell
Здравствуйте, Sefiros!
у Вас видимо у кнопки закрытия стоит св-во Default:=true;
поэтому по Enter'у она и срабатывает - лучше это св-во отключить
а чтобы срабатывала проверка пароля (я так понял это именно оно)
можно в собітие формы (не кнопки!) происать такое:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then // проверяем что нажат именно Enter
begin
if ... и т.д. проверяем то что нужно ...
end;
end;
да и еще установите св-во формы KeyPreview:=true
Ответ отправил: Mishell (статус: 10-ый класс)
Ответ отправлен: 07.04.2008, 10:11
Оценка за ответ: 5
Комментарий оценки:
Спасибо большое, что откликнулись и помогли. Очень помогло.......:)))))))))))))) Респект и уважение Вам. Ещё раз огрмное спасибо......:))))))))

Отвечает: Genia007
Здравствуйте, Sefiros!
Возмите обработчик Edita OnKeyPress и напишите такой код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 then
Button1.Click;
{или
if Edit1.Text = 'Abrakadabra' then
Form2.Show
else
Application.Terminate;}
end;
Если нажата кнопка Enter то выполняем нажатие кнопки Button1 (или сразу нужный код), а
обработчик OnEnter срабатывает, когда компонент получает фокус ввода.
Ответ отправил: Genia007 (статус: 10-ый класс)
Ответ отправлен: 07.04.2008, 12:19
Оценка за ответ: 5
Комментарий оценки:
Приятно видеть снова........Спасибочки большое за помощь, а так же за отзыв. Каг Ваша "ничего"? Я ужо сделал, всё работает на ура. Но всё равно спасибо большое, что не игнорируете


Вопрос № 130.994
здравствуйте. я опять по Delphi , так как в нем новичок :) вот такая ошибка [Error] Unit1.pas(314): Too many actual parameters
что мне сделать? со всем рабзобрался, но вот это меня выбило из колеи. заранее спасибо.
BM, Grad(AI), z1.... переменные с присвоенными данными.

Приложение:

Отправлен: 07.04.2008, 13:55
Вопрос задал: Гаркуша Руслан Русланович (статус: 9-ый класс)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 6)

Отвечает: Delph
Здравствуйте, Гаркуша Руслан Русланович!

Функция FloatToStr принимает один вещественный параметр (с типом, к примеру, Double или Extended), а Вы передаёте множество. Компилятор честно сообщает Вам об этом (в переводе: "Передаётся слишком много параметров").
---------
Сомневайся во всём! Реальность часто бывает не такой, как мы о ней думаем.
Ответ отправил: Delph (статус: Студент)
Ответ отправлен: 07.04.2008, 14:15
Оценка за ответ: 4
Комментарий оценки:
ну это мне понятно, что ругает меня как ламера. хотел знать как поступить в этом случае

Отвечает: Витомский Вадим Викторович
Здравствуйте, Гаркуша Руслан Русланович!
Правильнее было бы написать так, как в приложении

Приложение:

---------
Не так страшен черт, как его чертовка!

Ответ отправил: Витомский Вадим Викторович (статус: Студент)
Ответ отправлен: 07.04.2008, 14:28
Оценка за ответ: 5
Комментарий оценки:
большое спасибо. сейчас попробую

Отвечает: Genia007
Здравствуйте, Гаркуша Руслан Русланович!
У Вас неправильно записано присвоение текта метки, вот правильный вариант:
label1.caption := ('Исходные данные' + #13 + 'Модуль m= ' + FloatToStr(BM) + #13
+ 'Угол профиля ' + FloaToStr(Grad(Al)) + #13 + 'Число зубьев шестерни ' + FloatToStr(z1)
+ #13 + 'Число зубьев колеса ' + FloatToStr(z) + #13);
Ответ отправил: Genia007 (статус: 10-ый класс)
Ответ отправлен: 08.04.2008, 19:28
Оценка за ответ: 4
Комментарий оценки:
ну.... это уже написал эксперт Витомский Вадим Викторович, но все равно спасибо


Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале

∙ Версия системы: 4.90 от 11.04.2008

Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное