Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ] > Код на шару!
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 26.05.2013, 17:44
dirt-dog dirt-dog вне форума
Прохожий
 
Регистрация: 26.05.2013
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Добавить в форму 4 кнопки, связав с ними следующие действия

необходимо сделать:
Добавить в форму 4 кнопки, связав с ними следующие действия:
1. Перемещение кнопки в случайную точку в форме.
2. Изменение размеров кнопки.
3. Перемещение формы кнопки в случайную точку экрана.
4. Изменение размеров формы.

вот пример, но в примере чуть другой код, если не сложно то напишите код именно для этих 4х пунктов или хотя-бы подскажите что и как необходимо заменить.заранее спасибо

Пример. Разработать программу, которая в ответ на нажатие кнопки, будет случайным образом изменять цвет формы.
Для решения поставленной задачи выполним следующую последовательность действий:
1. Поместим в форму кнопку Button1.
2. Дважды щелкнем мышкой по этой кнопке. В результате этого откроется окно редактора кода, в которое будет добавлен шаблон процедуры обработки события. Delphi присваивает функции обработки события имя, которое состоит из двух частей.

• Первая часть имени идентифицирует форму, содержащую объект (компонент), для которого создана процедура обработки события.
• Вторая часть имени идентифицирует сам объект и событие.
• В нашем примере имя формы — Form1, имя командной кнопки — Button1, а имя события -Click.
В окне редактора кода между словами begin и end можно вводить инструкции, реализующие функцию обработки события. В нашем случае это:
form1.Color:=random(1000000);
Изображения
Тип файла: jpg Безымянный.JPG (23.0 Кбайт, 12 просмотров)
Ответить с цитированием
  #2  
Старый 26.05.2013, 17:58
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Скрин оч. полезный.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #3  
Старый 26.05.2013, 18:09
dirt-dog dirt-dog вне форума
Прохожий
 
Регистрация: 26.05.2013
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

блин мисклик)сейчас залью норм

вот скрин норм
Изображения
Тип файла: jpg Безымянный.JPG (18.0 Кбайт, 16 просмотров)

Последний раз редактировалось M.A.D.M.A.N., 26.05.2013 в 20:30.
Ответить с цитированием
  #4  
Старый 26.05.2013, 20:30
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

И снова, скрин оч. полезный
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #5  
Старый 31.05.2013, 04:59
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от dirt-dog
необходимо сделать:
Добавить в форму 4 кнопки, связав с ними следующие действия:
1. Перемещение кнопки в случайную точку в форме.
2. Изменение размеров кнопки.
3. Перемещение формы кнопки в случайную точку экрана.
4. Изменение размеров формы...
Что-то типа этого.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:10.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter