как узнать нажата ли кнопка

@New_Neznayka · Регистрация: 29.10.2009

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

как сделать так чтобы при нажатии на Button1 выполнялись операторы записанные в Button2 ?
или как написать код в Delphi чтобы его не было на видном месте(чтобы тот кто запустит программу долго не мог понять где выполняется ShowCursor(False) ; ) если такое возможно!

@reiteriX · 29.11.2009, 20:27

Сообщение от New_Neznayka

выполнялись операторы записанные в Button2

Все действия кнопки Button2 ? (Как будто одна и та же кнопка ?)

@New_Neznayka · 29.11.2009, 20:37 **[ТС]**

Сообщение от reiteriX

Все действия кнопки Button2 ? (Как будто одна и та же кнопка ?)

Ага , как это сделать ?

@reiteriX · 29.11.2009, 20:40

Свойство onclick у button1. Выбираешь там Button2.

@kentaw · 29.11.2009, 20:58

Или программно,

Delphi

procedure Button1.Clikc(Sender:TObject);
begin
 Button2.Clikc(Sender);
end;

@reiteriX · 29.11.2009, 21:57

Сообщение от kentaw

procedure Button1.Clikc(Sender:TObject);
begin
Button2.Clikc(Sender);
end;

Опечатка)

CLICK

@New_Neznayka · 29.11.2009, 22:39 **[ТС]**

спасибо

Добавлено через 37 минут
блин ни программно не через код не выходит

@reiteriX · 30.11.2009, 11:02

Сообщение от New_Neznayka

ни программно не через код не выходит

Почему? Что именно не получается?

@New_Neznayka · 30.11.2009, 12:37 **[ТС]**

когда пишу код (Button1.Click(Sender); )выдаёться ошибка Too many actual parameters
когда делаю программно ошибок нет но операторы другой кнопки так и не выполняються

@Jazon_deenAlt · 30.11.2009, 12:42

2 кнопки
первая нажымает вторую
вторая закрывает программу
коды:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
Button2.Click;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;

Добавлено через 1 минуту
если нажать первую, то она нажмет вторую, а та в свою очередь выполнит код и закроет программу
ето подход к вам нужному

Добавлено через 48 секунд
без (Sender)

@New_Neznayka · 30.11.2009, 15:40 **[ТС]**

спасибо всё работает

@New_Neznayka 57 / 20 / 3 Регистрация: 29.10.2009 Сообщений: 198
		1
	как узнать нажата ли кнопка 29.11.2009, 20:19. Показов 5726. Ответов 10 Метки нет (Все метки) как сделать так чтобы при нажатии на Button1 выполнялись операторы записанные в Button2 ? или как написать код в Delphi чтобы его не было на видном месте(чтобы тот кто запустит программу долго не мог понять где выполняется ShowCursor(False) ; ) если такое возможно! 0

@reiteriX 685 / 241 / 13 Регистрация: 02.04.2009 Сообщений: 692
	29.11.2009, 20:27	2
	Сообщение от New_Neznayka выполнялись операторы записанные в Button2 Все действия кнопки Button2 ? (Как будто одна и та же кнопка ?) 1

@New_Neznayka 57 / 20 / 3 Регистрация: 29.10.2009 Сообщений: 198
	29.11.2009, 20:37 [ТС]	3
	Сообщение от reiteriX Все действия кнопки Button2 ? (Как будто одна и та же кнопка ?) Ага , как это сделать ? 0

@reiteriX 685 / 241 / 13 Регистрация: 02.04.2009 Сообщений: 692
	29.11.2009, 20:40	4
	Свойство onclick у button1. Выбираешь там Button2. 1

@reiteriX 685 / 241 / 13 Регистрация: 02.04.2009 Сообщений: 692
	29.11.2009, 21:57	6
	Сообщение от kentaw procedure Button1.Clikc(Sender:TObject); begin Button2.Clikc(Sender); end; Опечатка) CLICK 2

@New_Neznayka 57 / 20 / 3 Регистрация: 29.10.2009 Сообщений: 198
	29.11.2009, 22:39 [ТС]	7
	спасибо Добавлено через 37 минут блин ни программно не через код не выходит 0

@reiteriX 685 / 241 / 13 Регистрация: 02.04.2009 Сообщений: 692
	30.11.2009, 11:02	8
	Сообщение от New_Neznayka ни программно не через код не выходит Почему? Что именно не получается? 1

@New_Neznayka 57 / 20 / 3 Регистрация: 29.10.2009 Сообщений: 198
	30.11.2009, 12:37 [ТС]	9
	когда пишу код (Button1.Click(Sender); )выдаёться ошибка Too many actual parameters когда делаю программно ошибок нет но операторы другой кнопки так и не выполняються 0

@New_Neznayka 57 / 20 / 3 Регистрация: 29.10.2009 Сообщений: 198
	30.11.2009, 15:40 [ТС]	11
	спасибо всё работает 0