Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 19.05.2014, 19:20   #1 (permalink)
lepump
Новичок
 
Регистрация: 05.04.2014
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Двигать форму

Есть форма, а на ней кнопка. При нажатии на кнопку Форма двигается вправо или влево, через рандом я полагаю. Что здесь не хватает?

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Left:=Form1.left -10;
end;

end.
lepump вне форума   Ответить с цитированием

Старый 19.05.2014, 19:20
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

С уверенностью могу сказать, что данные темы будут очень полезны

Как вставить скрипт подсчета кликов в форму обратной связи?
Разработать программу, позволяющую заполнять форму стимулирующих надбавок и вычислять
Помогите создать форму по вводу новой записи в Excel
Microsoft Visual Studio 2010: не могу сделать форму программе.

Старый 19.05.2014, 23:30   #2 (permalink)
poiu
Member
 
Регистрация: 05.03.2014
Сообщений: 201
Сказал(а) спасибо: 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;
poiu вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.