Убегающая кнопка

Убегающая кнопка

Программа создает кнопку на которую нельзя никак нажать.
Расположите на форме компонент Button1: TButton с вкладки Standart
и задайте в Инспекторе объектов (Object Inspector) его свойтсво Caption

Caption: Нажми меня

Теперь переключитесь на вкладку Events здесь же, напротив события OnMouseMove, в пустом поле сделайте двойной щелчок. Это автоматически создаст процедуру с именем Button1MouseMove. Впишите следующий код

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Button1.Top := Random(Form1.ClientHeight - Button1.Height);
  Button1.Left := Random(Form1.ClientWidth - Button1.Width);
end;

Запустите программу Run

СКАЧАТЬ ПРОГРАММУРазмер
Демо-урок: убегающая кнопка (1036)389 кб

Отправил Пт, 05/19/2017 - 02:47

yoga amsterdam yoga poses for pregnancy
what is bikram yoga http://yogaposes4lowerbackpain.today/#
yoga temple yoga mp3

Отправил Пнд, 02/13/2017 - 03:36

online pharmacy usa
http://cialis-overthecounterwalmart.org - cialis over the counter at walmart
can i split cialis tablets
cialis over counter at walmart
- cialys
cialis 20 mg cost profile

Отправил Чт, 12/01/2016 - 17:36

clilly icos cialis tablets
http://buycialis-us.com - cialis online
cialis online reviews last post
cialis online
- cialis vs cialis drugs comments.asp
pharmshop

Отправил Пнд, 11/28/2016 - 17:19

cialis information side effects visitor messages
http://pharmshop-online.com - generic cialis cialis erythromycin interaction effect
generic cialis - cialis 10 mg 4 tablet joined
cheap cialis generic online

Отправил Пт, 11/25/2016 - 15:43

viagra compatability with other medication
http://viagrawithouta-doctorprescription.net - viagra without a doctor prescription viagra information viagra vs viagra contact
viagra without a doctor prescription - buy tadalafil citrate viagra online overnight delivery
comparison viagra viagra levitra

Отправил Пт, 11/25/2016 - 01:50

viagra 10mg side effects last post
http://viagrawithoutadoctorprescriptionsale.com - viagra without a doctor
viagra online overnight quick links
viagra without a doctor prescription
- viagra 10mg or 20mg login
graph on sildenafil,viagra,vardenafil potency&47;streanths

Отправил Ср, 11/23/2016 - 14:24

viagra 20 mg cost our newest member
http://viagrawithoutadoctor-prescription.net - viagra without a doctor prescription buy viagra online without a prescription
viagra without a doctor prescription - viagra 10mg password
viagra more:for_patients

Отправил Пнд, 11/21/2016 - 11:45

cialis manufacturer
http://cialis-withoutdoctorsprescription.net - cialis without a doctor's prescription cialis testimonials treatment clever.cgi?mode=
cialis without a doctor's prescription - cialis 5mg works it is currently
cheap generic cialis usa no prescription

Отправил Сб, 11/19/2016 - 22:31

cialis pills price edit options
http://viagrawithoutadoctorprescription.org - viagra without a doctor prescription cialis india rayh
viagra without a doctor prescription - cialis commercials settings
cialis 20 mg cost our newest member

Отправил Вс, 11/13/2016 - 08:35

theodore roosevelts cialis
http://cialisoverthecounteratwalmart.org - cialis over the counter at walmart cialis 20 mg cost profile
cialis over the counter at walmart - cialis canadian pharmacy online members
cialis for order

Последние комментарии

  • cialis 10 mg 4 tablet register http://viagra-withoutdoctors.com - viagra without a doctor prescription usa cialis 10mg name viagra without a doctor prescription - cialis tadalafil cheapest online guestbook.php?sn= cheap cialis pills online
  • Красивые девушки любят позировать рядом с дорогими автомобилями http://hddevki.ru/uploads/posts/2016-05/medium/1462333024_image-712.jpg фото сильный секс на кровате, порно развлечения богатых женщин бесплатно фото http://hddevki.ru/
  • Услуги для тех, кто пропустил 6115172 купить больничный лист

Счетчики