Консультации Портала - Консультация #23370

Задать вопрос Консультации Пользователи Форум

Задать вопрос экспертам

Консультация № 23370

11.07.2005, 22:39

0.00 руб.

0 4 3

Компьютеры Программирование

Здраствуйте уважаемые эксперты. Вприложении код мини програмы, посмотрите пожалуйсто. А вопрос у меня такой: когда наведеш мышку в угол и удержиш там некоторое время то сообшений ‘мышка в углу‘ показувает очень много, как зделать чтобы сообшение показывалось одно?
Заранее спасибо.

Приложение:
varpt: TPoint;beginGetCursorPos(pt);Edit1.Text := inttostr(pt.X);Edit2.Text := inttostr(pt.Y);if (Edit1.Text = (‘0‘)) and (Edit2.Text = (‘0‘)) thenbeginShowMessage(‘Myszka v uglu‘);end;end;

Обсуждение

Неизвестный

11.07.2005, 22:58

общий

это ответ

Здравствуйте, Staskin!
Staskin, признайся: этот код стоит у тебя в таймере ;)
Ну отсюда и решение - перед вызовом ShowMessage выключай таймер (Timer1.Enabled := false;), а после вызова - включай (Timer1.Enabled := true;).
дополненный код в приложении. Незабудь поменять имя таймера в этом коде, если у тебя он называется не "Timer1".

Приложение:
varpt: TPoint;beginGetCursorPos(pt);Edit1.Text := inttostr(pt.X);Edit2.Text := inttostr(pt.Y);if (Edit1.Text = (‘0‘)) and (Edit2.Text = (‘0‘)) thenbegintimer1.Enabled := false;ShowMessage(‘Myszka v uglu‘);timer1.Enabled := true;end;end;

Неизвестный

12.07.2005, 07:41

общий

это ответ

Здравствуйте, Staskin!

Заведи еще одну глобальную переменную типа boolean на OnCreate присваеваешь false а дальше см. пример:

var
pt: TPoint;

begin
GetCursorPos(pt);
Edit1.Text := inttostr(pt.X);
Edit2.Text := inttostr(pt.Y);
if (Edit1.Text = (‘0‘)) and (Edit2.Text = (‘0‘)) then
begin
if m = false then
begin
ShowMessage(‘Myszka v uglu‘);
m:=true;
end
else
end;

end;

Неизвестный

12.07.2005, 19:01

общий

ШтанишлауА чиво у вас паказувает? Луннае время по Целсию или праграму ВВС?Может Вам выслать исходник отображалки позиции курсора? Так и напишите, а не морочте голову.

давно

Вадим Исаев ака sir Henry

Мастер-Эксперт
425
4118

12.07.2005, 19:21

общий

это ответ

Здравствуйте, Staskin!
Вы получите ровно столько сообщений, сколько раз будете вызывать эту Вашу функцию. Поэтому встречный вопрос: а куда Вы ее запихали?

Об авторе:
Я только в одном глубоко убеждён - не надо иметь убеждений! :)

Форма ответа

Отправка постов/ответов доступна только зарегистрированным и подтвержденным пользователям.

Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.