Кидаю кнопку и любой прямоугольный компонент(проверял на TLayout, на котором лежал TRectangle, и на TPanel).
У "прямоугольника" Visible установлено в False.
На событие кнопки OnClick вешаю обработчик:
procedure TForm1.Button1Click(Sender: TObject);
begin
Panel1.Visible:=true; //TLayout.Visible:=true;
sleep(2000);
Panel1.Visible:=false; //TLayout.Visible:=false;
end;
Запускаю...
Происходит следующее:
По клику выполняется sleep, и только после этого быстро-быстро видимость включается/отключается. При этом, пока действует sleep, кнопка остаётся нажатой.
Получается, что часть функций выполняются как-будто по OnMouseDown, а часть по OnMouseUp.
В VCL приложении всё в порядке: видимость включается, программа ждёт 2 секунды, видимость отключается.
Вопрос
osvirt
Доброе время суток.
Проблема в следующем:
Создаю пустое FM-приложение.
Кидаю кнопку и любой прямоугольный компонент(проверял на TLayout, на котором лежал TRectangle, и на TPanel).
У "прямоугольника" Visible установлено в False.
На событие кнопки OnClick вешаю обработчик:
Запускаю...
Происходит следующее:
По клику выполняется sleep, и только после этого быстро-быстро видимость включается/отключается. При этом, пока действует sleep, кнопка остаётся нажатой.
Получается, что часть функций выполняются как-будто по OnMouseDown, а часть по OnMouseUp.
В VCL приложении всё в порядке: видимость включается, программа ждёт 2 секунды, видимость отключается.
Ссылка на комментарий
5 ответов на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.