Консультация № 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
общий
ШтанишлауА чиво у вас паказувает? Луннае время по Целсию или праграму ВВС?Может Вам выслать исходник отображалки позиции курсора? Так и напишите, а не морочте голову.
давно
Мастер-Эксперт
425
4118
12.07.2005, 19:21
общий
это ответ
Здравствуйте, Staskin!
Вы получите ровно столько сообщений, сколько раз будете вызывать эту Вашу функцию. Поэтому встречный вопрос: а куда Вы ее запихали?
Об авторе:
Я только в одном глубоко убеждён - не надо иметь убеждений! :)
Форма ответа