Часть 1 Одна из старых, но довольно интересная программа, которая описывалась в журнале ''Xakep'' под названием ''Убегающая кнопка''. Создайте новый проэкт и положите на него кнопку ''button''. А на вкладке ''events'' создайте обработчик события ''OnMauseMove'' в котором напишите следующий код:
Часть 3 Итог:
Теперь при наведении мыши на кнопку она будет убегать от мыши. Для большего интереса установи ''FormStyle=>FsstayOnTop'', ''BordenStyle=>bsNone'' и ''Position=>OnDesctopCenter'', теперь наша форма будет находиться поверх всех окон и не будет имет кнопок для её закрытия. За исключением нашей кнопки на которой мы так уж и быть напишем слово закрыть и сделаем соответствуюшее событие. И по нажатию на кнопку пишем 1 строку ''FormClose''.
Измени в инспекторе обьектов размер формы по разрешению экрана. Все шутка готова.
Часть 3 Итог:
Теперь при наведении мыши на кнопку она будет убегать от мыши. Для большего интереса установи ''FormStyle=>FsstayOnTop'', ''BordenStyle=>bsNone'' и ''Position=>OnDesctopCenter'', теперь наша форма будет находиться поверх всех окон и не будет имет кнопок для её закрытия. За исключением нашей кнопки на которой мы так уж и быть напишем слово закрыть и сделаем соответствуюшее событие. И по нажатию на кнопку пишем 1 строку ''FormClose''.
Измени в инспекторе обьектов размер формы по разрешению экрана. Все шутка готова.
Мы используем cookie-файлы, чтобы улучшить сервисы для вас. Если ваш возраст менее 13 лет, настроить cookie-файлы должен ваш законный представитель. Больше информации
Комментарии 5
TForml.MyFirstButtonMouseMove
(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
var
index:integer;
begin
index:=random(4) ;
case index of
0: MyFirstButton.Left:=
MyFirstButton.Left
+MyFirstButton.Width;
1: MyFirstButton.Left:=
MyFirstButton.Left-
MyFirstButton.Width;
2: MyFirstButton.Top:=
MyFirstButton.Top
+MyFirstButton.Height;
3: MyFirstButton.Top:=
MyFirstButton.Top-
MyFirstButton.Height;
end;
if MyFirstButton.Left MainForm.
Width then
MyFirstButton . Lef t : =
MainForm . Width-
MyFirstButton . Width;
if MyFirstButton.Top MainForm.
Height then
MyFirstButton . Top : =
MainForm. Height -
MyFirstButton . Height ;
end;
Теперь при наведении мыши на кнопку она будет убегать от мыши. Для большего интереса установи ''FormStyle=>FsstayOnTop'', ''BordenStyle=>bsNone'' и ''Position=>OnDesctopCenter'', теперь наша форма будет находиться поверх всех окон и не будет имет кнопок для её закрытия. За исключением нашей кнопки на которой мы так уж и быть напишем слово закрыть и сделаем соответствуюшее событие. И по нажатию на кнопку пишем 1 строку ''FormClose''.
Измени в инспекторе обьектов размер формы по разрешению экрана. Все шутка готова.
Теперь при наведении мыши на кнопку она будет убегать от мыши. Для большего интереса установи ''FormStyle=>FsstayOnTop'', ''BordenStyle=>bsNone'' и ''Position=>OnDesctopCenter'', теперь наша форма будет находиться поверх всех окон и не будет имет кнопок для её закрытия. За исключением нашей кнопки на которой мы так уж и быть напишем слово закрыть и сделаем соответствуюшее событие. И по нажатию на кнопку пишем 1 строку ''FormClose''.
Измени в инспекторе обьектов размер формы по разрешению экрана. Все шутка готова.