Создать две кнопки, которые бы при нажатии менялись местами

@кубик · Регистрация: 27.11.2014

Author24 — интернет-сервис помощи студентам

работаю в лазарусе с формами, мне надо создать две кнопки, при нажатии они менялись местами.

@krapotkin · 24.03.2015, 09:11

место компонента определяется полями Left и Top

Delphi

1 2	L:=b1.Left; b1.Left:=b2.Left; b2.Left:=L; T:=b1.Top; b1.Top:=b2.Top; b2.Top:=T;

@Puporev · 24.03.2015, 09:11

Pascal

procedure TForm1.Button1Click(Sender: TObject);
var x,y:integer;
begin
x:=Button1.Left;
y:=Button1.Top;
Button1.Left:=Button2.Left;
Button1.Top:=Button2.Top;
Button2.Left:=x;
Button2.Top:=y;
end;

В инспекторе объектов для Button2 выберите на вкладке События в OnClick Button1Click

@кубик · 24.03.2015, 10:34 **[ТС]**

спс, а как сделать так что бы кнопки менялись местами бесконечно, к примеру я нажимаю кнопку 1 меняется местами появляется кнопка 2 я нажимаю на кнопку 2 появляется кнопка 1. и так бесконечно.

@Puporev · 24.03.2015, 10:36

Сообщение от кубик

к примеру я нажимаю кнопку 1 меняется местами появляется кнопка 2 я нажимаю на кнопку 2 появляется кнопка 1.

Так и нажимайте пока не надоест, кнопки будут меняться местами, в чем проблема?

@кубик · 24.03.2015, 10:38 **[ТС]**

надо на одну нажимать, а мне приходится как бы переключатся на другую.

@krapotkin · 24.03.2015, 10:41

чо ?
а другая делать то же самое не потянет?

@кубик · 24.03.2015, 11:07 **[ТС]**

короче есть 2 кнопки (Кнопка 1 кнопка 2)
когда я нажимаю на кнопку 1 менялись местами с кнопкой 2 (кнопка 2 кнопка 1)

а у меня не получается, что бы нажимать к примеру на кнопку 2 и опять менялась на кнопку 1 (кнопка 1 кнопка 2)

@Puporev · 24.03.2015, 11:08

У кнопок прописано одно событие поэтому без разницы куда ты нажмешь.

@кубик · 24.03.2015, 11:13 **[ТС]**

мне надо нажимать на одну кнопку всегда

@Puporev · 24.03.2015, 11:15

Ну и нажимай. Оставь событие OnClick только у той кнопки на которую будешь нажимать.

@кубик · 24.03.2015, 11:19 **[ТС]**

спс

@Puporev · 24.03.2015, 11:23

Так Вам менять кнопки местами или менять названия на кнопках?

Добавлено через 2 минуты
А нажимать нужно на кнопку на том же месте независимо от названия или всегда например на кнопку с названием Button1?

@кубик 0 / 0 / 0 Регистрация: 27.11.2014 Сообщений: 24
	24.03.2015, 11:19 [ТС]	12
	спс 0

@кубик 0 / 0 / 0 Регистрация: 27.11.2014 Сообщений: 24
	24.03.2015, 10:34 [ТС]	4
	спс, а как сделать так что бы кнопки менялись местами бесконечно, к примеру я нажимаю кнопку 1 меняется местами появляется кнопка 2 я нажимаю на кнопку 2 появляется кнопка 1. и так бесконечно. 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	24.03.2015, 10:36	5
	Сообщение от кубик к примеру я нажимаю кнопку 1 меняется местами появляется кнопка 2 я нажимаю на кнопку 2 появляется кнопка 1. Так и нажимайте пока не надоест, кнопки будут меняться местами, в чем проблема? 0

@кубик 0 / 0 / 0 Регистрация: 27.11.2014 Сообщений: 24
	24.03.2015, 10:38 [ТС]	6
	надо на одну нажимать, а мне приходится как бы переключатся на другую. 0

@krapotkin 5780 / 4523 / 1430 Регистрация: 14.04.2014 Сообщений: 20,144 Записей в блоге: 20
	24.03.2015, 10:41	7
	чо ? а другая делать то же самое не потянет? 0

@кубик 0 / 0 / 0 Регистрация: 27.11.2014 Сообщений: 24
	24.03.2015, 11:07 [ТС]	8
	короче есть 2 кнопки (Кнопка 1 кнопка 2) когда я нажимаю на кнопку 1 менялись местами с кнопкой 2 (кнопка 2 кнопка 1) а у меня не получается, что бы нажимать к примеру на кнопку 2 и опять менялась на кнопку 1 (кнопка 1 кнопка 2) 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	24.03.2015, 11:08	9
	У кнопок прописано одно событие поэтому без разницы куда ты нажмешь. 0

@кубик 0 / 0 / 0 Регистрация: 27.11.2014 Сообщений: 24
	24.03.2015, 11:13 [ТС]	10
	мне надо нажимать на одну кнопку всегда 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	24.03.2015, 11:15	11
	Ну и нажимай. Оставь событие OnClick только у той кнопки на которую будешь нажимать. 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	24.03.2015, 11:23	13
	Так Вам менять кнопки местами или менять названия на кнопках? Добавлено через 2 минуты А нажимать нужно на кнопку на том же месте независимо от названия или всегда например на кнопку с названием Button1? 0

Опции темы