19.05.2014, 19:20
|
#1 (permalink) |
|
Новичок
Регистрация: 05.04.2014
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Двигать форму
procedure TForm1.Button1Click(Sender: TObject); begin Form1.Left:=Form1.left -10; end; end. |
|
|
|
19.05.2014, 19:20
|
|
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
С уверенностью могу сказать, что данные темы будут очень полезны Как вставить скрипт подсчета кликов в форму обратной связи? Разработать программу, позволяющую заполнять форму стимулирующих надбавок и вычислять Помогите создать форму по вводу новой записи в Excel Microsoft Visual Studio 2010: не могу сделать форму программе. |
|
19.05.2014, 23:30
|
#2 (permalink) |
|
Member
Регистрация: 05.03.2014
Сообщений: 200
Сказал(а) спасибо: 2
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 834
|
ну хотя бы так...
Код:
procedure TForm1.Button1Click(Sender: TObject); var pos: integer; begin pos:= random(50); // если четное, то двигаемся вправо if pos mod 2 = 0 then Form1.Left:= Form1.Left + random(200) + 10 // иначе двигаемся влево else Form1.Left:= Form1.Left - random(200) - 10; //шаг минимум 11, ну чтобы хоть немного двигалась в сторону end; |
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
 |
| Опции темы | |
| Опции просмотра | |
|
|
Линейный вид
