Открытие формы по нажатию на определенную часть компонента Image

@Help Me! · Регистрация: 25.09.2013

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

Я делаю проект в 9 классе. Мне нужно по нажатию на компонент image в его определенной части, чтобы открывалась форма... Я знаю, что нужно использовать OnMouseDown, но я не знаю как перебирать координаты для открытия формы. То есть, еще раз, я хочу по нажатию, например на "Китай" на карте, открыть форму с информацией о Китае. Подскажите, как перебрать координаты.

fireday · 27.04.2014, 06:42

Координаты присваиваются переменным Х, У
Простым условием можно определить попадание в нужную область

на форму Image (с картинкой), кнопку и лейбл

Delphi

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Caption:='X:'+IntToStr(X)+' Y:'+IntToStr(Y);
  if (x>100) and (x<200) and (y>100) and (y<200) then
    Label1.Color:=clGreen
  else
    Label1.Color:=clRed;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Canvas.Brush.Style:=bsClear;
  Image1.Canvas.AutoRedraw:=True;
  Image1.Canvas.Pen.Width:=2;
  Image1.Canvas.Rectangle(100,100,200,200);
end;

example.7z

@Help Me! · 27.04.2014, 07:19 **[ТС]**

А форму то как открыть?

fireday · 27.04.2014, 09:30

Для начала нужно подключить модуль формы в разделе uses
Можно сделать это в главном uses (там где interface)
Но в таком случае в подключенном модуле нельзя будет аналогично подключить данный модуль
т.е. если в Unit1 подключили Unit2, то в Unit2 подключить в interface Unit1 не выйдет
Для этого подключайте в implementation

Delphi

implementation
uses
  unit2;
{$R *.lfm}

Для открытия формы

Delphi

1	Form2.Show;

Где Form2 имя нужной формы
Если нужно открыть форму в виде диалога (нельзя переключиться на другие формы) используйте ShowModal

Delphi

1	Form2.ShowModal;

при работе с несколькими формами стоит учитывать, что программа завершится по закрытию всех форм
Если нужно завершить программу по закрытию главной формы добавьте в событие FormClose закрытие всех других форм
например если всего 1 дополнительная форма:

Delphi

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  Form2.Close;
end;

@Help Me! 0 / 0 / 0 Регистрация: 25.09.2013 Сообщений: 15
		1
	Открытие формы по нажатию на определенную часть компонента Image 26.04.2014, 17:07. Показов 4336. Ответов 3 Метки нет (Все метки) Я делаю проект в 9 классе. Мне нужно по нажатию на компонент image в его определенной части, чтобы открывалась форма... Я знаю, что нужно использовать OnMouseDown, но я не знаю как перебирать координаты для открытия формы. То есть, еще раз, я хочу по нажатию, например на "Китай" на карте, открыть форму с информацией о Китае. Подскажите, как перебрать координаты. 0

@Help Me! 0 / 0 / 0 Регистрация: 25.09.2013 Сообщений: 15
	27.04.2014, 07:19 [ТС]	3
	А форму то как открыть? 0

	27.04.2014, 09:30

Открытие формы по нажатию на определенную часть компонента Image

Решение