Вопрос № 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.... переменные с присвоенными данными.
Функция FloatToStr принимает один вещественный параметр (с типом, к примеру, Double или Extended), а Вы передаёте множество. Компилятор честно сообщает Вам об этом (в переводе: "Передаётся слишком много параметров").
--------- Сомневайся во всём! Реальность часто бывает не такой, как мы о ней думаем.
Ответ отправил: Delph (статус: Студент)
Ответ отправлен: 07.04.2008, 14:15 Оценка за ответ: 4 Комментарий оценки: ну это мне понятно, что ругает меня как ламера. хотел знать как поступить в этом случае
Отвечает: Витомский Вадим Викторович
Здравствуйте, Гаркуша Руслан Русланович!
Правильнее было бы написать так, как в приложении
Приложение:
--------- Не так страшен черт, как его чертовка!
Ответ отправил: Витомский Вадим Викторович (статус: Студент)
Ответ отправлен: 07.04.2008, 14:28 Оценка за ответ: 5 Комментарий оценки: большое спасибо. сейчас попробую
Ответ отправил: Genia007 (статус: 10-ый класс)
Ответ отправлен: 08.04.2008, 19:28 Оценка за ответ: 4 Комментарий оценки: ну.... это уже написал эксперт Витомский Вадим Викторович, но все равно спасибо