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

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

Программа создает кнопку на которую нельзя никак нажать.
Расположите на форме компонент 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

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

Отправил Пнд, 09/03/2018 - 10:47

The Village Voice Has Shut Down And People Are Sharing Their Best Memories Of The Paper The 30 highest-paid tennis players of all time, ranked claire Danes And Hugh Dancy Welcome Baby Boy To Family Rap In The Middle Of Pop Songs Is This Generation's Rock Guitar Solos Listen To Full 911 Audio Of 'BBQ Becky' Calling Cops On Black Men Grilling Ohio State blitzes Oregon State in first game without Urban Meyer Ohio State blitzes Oregon State in first game without Urban Meyer
Missouri attorney general sues over deadly duck boat sinking Former 'ER' Actress Killed By Police After She Took Out BB Gun
obama Photographer Mocks Photo-Blocking Trump Volunteer With Extreme Close-Up
everybody is buying these AirPods rivals
the World Ends With You: Final Remix - Touch Screen, Motion Controls and Co-op Gameplay | PAX West 2018
meghan McCain Takes Aim At Trump In Powerful Eulogy For Her Dad John McCain
top New Games Releasing This Month On Switch, PS4, Xbox One, And PC -- September 2018

When 'The Office' And Tom Clancy Are Mashed Up, Dwight Is The Terrorist George W. Bush passes candy to Michelle Obama at John McCain funeral: Video Top New Games Releasing This Month On Switch, PS4, Xbox One, And PC -- September 2018
5-Pound Dog Dies Protecting Human Family From Bear Maxine Waters Gives 'Wakanda Forever' Salute At Aretha's Funeral
CNN pulls ‘Parts Unknown’ episodes featuring Asia Argento CNN pulls ‘Parts Unknown’ episodes featuring Asia Argento
Folks Are Angry Over Fox News Job-Shaming Ex-'Cosby' Actor For 'Bagging Groceries' Mollie Tibbetts' father: Stop using her murder for immigration agenda
Halle Berry Cheekily Calls Out Prince Harry For Having Her Picture On His Dorm Wall Watch The Sweet Video Gabrielle Union Made Husband Dwyane Wade For Their 4th Anniversary Does Devil May Cry Still Hold Up?
everybody is buying these AirPods rivals
emmy Rossum Exits 'Shameless' After 9 Seasons: 'It Really Feels Like A Family'
there's Extra And Then There's Lady Gaga Arriving At The Venice Film Festival
the Photographer-Blocking Trump Volunteer Has Become A Brilliant Meme
jennifer Lawrence's Nude Photo Hacker Sentenced To 8 Months In Prison

GOP Senate Candidates Are Scrambling To Rewrite Their Record On Pre-Existing Conditions The 30 highest-paid tennis players of all time, ranked 5-Pound Dog Dies Protecting Human Family From Bear Does Devil May Cry Still Hold Up? Donald Trump Gets Brutally Mocked Over 'Biggest Stadium' Pledge For Ted Cruz
Everybody is buying these AirPods rivals People Are 'Revealing' Celebrities Real Names On Twitter, And It's Too Much
McCain ends 81-year journey with burial at Naval Academy
'Good Morning America' cohost Lara Spencer marries Rick McVey Rap In The Middle Of Pop Songs Is This Generation's Rock Guitar Solos GOP Senate Candidates Are Scrambling To Rewrite Their Record On Pre-Existing Conditions Claire Danes And Hugh Dancy Welcome Baby Boy To Family Microwave Weapons Could Be The Culprit Behind The Mysterious U.S. Embassy Attacks
Bishop apologizes to Ariana Grande for ‘too friendly’ grope during Aretha Franklin funeral
http://shieldaegis.com/52447-wisconsin-mother-is-lone-survivor-after-kayak.html
http://shieldaegis.com/42150-rebel-galaxy-outlaw-gameplay-features-space-pirates.html
http://shieldaegis.com/89581-donald-trump-sparks-anger-in-ireland-after.html
http://shieldaegis.com/44916-obama-photographer-mocks-photo-blocking-trump-volunteer-with.html
http://shieldaegis.com/04615-folks-are-angry-over-fox-news-job-shaming.html

the Photographer-Blocking Trump Volunteer Has Become A Brilliant Meme
listen To Full 911 Audio Of 'BBQ Becky' Calling Cops On Black Men Grilling
emmy Rossum Exits 'Shameless' After 9 Seasons: 'It Really Feels Like A Family'
this is the undergarment that should be in every closet
lady Gaga's Pink Couture Valentino Gown Is So Outrageous It Works

former 'ER' Actress Killed By Police After She Took Out BB Gun
missouri attorney general sues over deadly duck boat sinking
the 30 highest-paid tennis players of all time, ranked
kelly Ripa Recalls Family Trip In Throwback Pic Parents Can Relate To
jennifer Lawrence's Nude Photo Hacker Sentenced To 8 Months In Prison

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

  • http://ziter.ru/index.php?productID=3751 http://eur-style.ru/product/713 http://samaram.ru/product/nemnogo-o-napolnyh-chasah http://salonturov.ru/index.php?productID=43345
  • What Do Installment Loans Present Themselves? In case if one feels need in ready money straight away, the best method to get it is to turn to installment loans that have historically been known as the most efficient and timely for enormous buyings. Installment loan constitutes a close-end loan,...
  • ОСТАЛОСЬ ВСЕГО 15 ДЕНЕЖНЫХ БОНУСОВ! ВЫПЛАЧЕНО БОЛЕЕ 4 000 000 РУБЛЕЙ ! ---http://link.futbol/8lko

Счетчики