Компонент Shape - Помощь студентам

Asira · 29.05.2010, 00:13

Как можно сделать какой процедурой? чтоб при нажатии на объект Shape, например квадрат , совершалось какое нибудь действие ну например окно закрывалось...)))

Terran · 29.05.2010, 00:18

Код:

Procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Begin
Close;
End;

29.05.2010, 00:13	#1
Asira Пользователь Регистрация: 12.12.2009 Сообщений: 84	Компонент Shape Как можно сделать какой процедурой? чтоб при нажатии на объект Shape, например квадрат , совершалось какое нибудь действие ну например окно закрывалось...)))

29.05.2010, 00:18	#2
Terran Участник клуба Регистрация: 28.11.2007 Сообщений: 1,521	Код: `Procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Begin Close; End;` Всегда рад помочь!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Рисование на Shape	Stark[SG!]	Мультимедиа в Delphi	8	09.06.2011 13:22
Shape	driga	Компоненты Delphi	4	03.04.2010 12:22
Pascal цикл с Shape.Left and Shape.Top	BanzoO	Помощь студентам	1	13.12.2009 21:47
Shape вверх	russian-stalker	Общие вопросы Delphi	1	12.09.2008 19:52
timer и shape	гера	Помощь студентам	4	16.04.2007 20:14