Прозрачная панель ,скрыть кнопки

@Ivanshilkov · Регистрация: 24.05.2017

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

Добрый вечер друзья!
Последние два года находил ответы на все вопросы но тут тупик.
Подскажите пожалуйста как сделать панель невидимой или на одной картинке создать две активные зоны.
То есть при нажатие на верхнюю часть картинки произойдёт собитие 1 ,а при нажатие на нижнюю часть событие 2. Я пытался выполнить это через панели,но их видно,что не позволительно.

@RefSol · 15.06.2017, 19:35

Ivanshilkov, самое простое решение это: нажатие одно событие которое разбивается на два или более в зависимости от координат положения курсора. Т.е. в событии необходимо определять координату (одну или обе) и принимать решение что делать дальше по условию.

DenNik · 15.06.2017, 19:38

при нажатии на картинку анализируй координаты, в которых произошел клик

так понятнее?

@Пытливый · 15.06.2017, 19:44

Вообще очень рекомендую почитать Александр Чиртик Delphi. Трюки и эффекты
На мой взгляд, одна из самых ценных в плане полезности книг. Там же найдете ответ на ваш вопрос.

@krapotkin · 15.06.2017, 20:07

нет никаких "активных зон"
это просто кон-цеп-ци-я
если вы нажали кнопку мыши, вы получите событие OnMouseDown с координатами
отпустили - OnMouseUp также с координатами
если Y < половины высоты, то считайте себе что вы попали в одну зону, иначе - в другую
Более сложные проверки координат дадут вам не только больше зон, но и могут сделать их разного размера и формы )

@droider · 16.06.2017, 04:45

Не по теме:

Сообщение от Пытливый

очень рекомендую почитать Александр Чиртик Delphi. Трюки и эффекты

+1. Прекрасная книга :)

@Ivanshilkov · 17.06.2017, 17:22 **[ТС]**

ОГРОМНОЕ СПАСИБО!!!

Добавлено через 10 минут
DenNik, А мажешь сделать пример кода,если тебе не трудно.

@Пытливый · 17.06.2017, 18:52

Ну вот вам аж 4 зоны на имидже:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
unit Unit35;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm35 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    procedure FormPaint(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    AActiveArea: Array of record Area: TRect; Msg: String; end;
  public
    { Public declarations }
  end;
 
var
  Form35: TForm35;
 
implementation
 
{$R *.dfm}
 
procedure TForm35.FormCreate(Sender: TObject);
var
  i: Integer;
begin
 SetLength(AActiveArea, 4);
 AActiveArea[0].Area := Rect(0,0,60,30);
 AActiveArea[0].Msg := 'Hot zone1';
 AActiveArea[1].Area := Rect(Image1.Width-60,0,Image1.Width,30);
 AActiveArea[1].Msg := 'Hot zone2';
 AActiveArea[2].Area := Rect(0,Image1.Height-30,60,Image1.Height);
 AActiveArea[2].Msg := 'Hot zone3';
 AActiveArea[3].Area := Rect(Image1.Width-60,Image1.Height-30,Image1.Width,Image1.Height);
 AActiveArea[3].Msg := 'Hot zone4';
end;
 
procedure TForm35.FormPaint(Sender: TObject);
var
  i: Integer;
begin
 for i := 0 to Length(AActiveArea)-1
 do begin
    Image1.Canvas.Pen.Color := clBlack;
    Image1.Canvas.Rectangle(AActiveArea[i].Area.Left,AActiveArea[i].Area.Top,AActiveArea[i].Area.Right,AActiveArea[i].Area.Bottom);
    Image1.Canvas.TextOut(AActiveArea[i].Area.Left+4, AActiveArea[i].Area.Top+2, AActiveArea[i].Msg);
    end;
end;
 
procedure TForm35.Image1Click(Sender: TObject);
var
  i: Integer;
  P: TPoint;
begin
 P := Image1.ScreenToClient(Mouse.CursorPos);
 Label1.Caption := '';
 for i := 0 to Length(AActiveArea)-1
 do if PtInRect(AActiveArea[i].Area, P)
    then Label1.Caption := AActiveArea[i].Msg;
end;
 
end.

@Ivanshilkov · 17.06.2017, 20:57 **[ТС]**

Пытливый, Друг,а подскажи код для картинки 217*241. и при нажатие на зону 1 ,процедура 1,а на зону 2,процедура 2.

@Пытливый · 17.06.2017, 23:16

Можно и так, идея та-же:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
unit Unit35;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm35 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    procedure FormPaint(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    AActiveArea: Array of TRect;
    procedure DoProc1;
    procedure DoProc2;
  public
  end;
 
var
  Form35: TForm35;
 
implementation
 
{$R *.dfm}
 
procedure TForm35.DoProc1;
begin
 Label1.Caption := 'Hot1';
end;
 
procedure TForm35.DoProc2;
begin
 Label1.Caption := 'Hot2';
end;
 
procedure TForm35.FormCreate(Sender: TObject);
begin
 SetLength(AActiveArea, 2);
 AActiveArea[0] := Rect(0,0,60,30);
 AActiveArea[1] := Rect(Image1.Width-60,0,Image1.Width,30);
end;
 
procedure TForm35.FormPaint(Sender: TObject);
var
  i: Integer;
begin
 for i := 0 to Length(AActiveArea)-1
 do begin
    Image1.Canvas.Pen.Color := clBlack;
    Image1.Canvas.Rectangle(AActiveArea[i].Left,AActiveArea[i].Top,AActiveArea[i].Right,AActiveArea[i].Bottom);
    Image1.Canvas.TextOut(AActiveArea[i].Left+4, AActiveArea[i].Top+2, 'Hot' + IntToStr(i));
    end;
end;
 
procedure TForm35.Image1Click(Sender: TObject);
var
  i: Integer;
  P: TPoint;
begin
 P := Image1.ScreenToClient(Mouse.CursorPos);
 Label1.Caption := '';
 for i := 0 to Length(AActiveArea)-1
 do if PtInRect(AActiveArea[i], P)
    then case i of
         0: DoProc1;
         1: DoProc2;
         end;
end;
 
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Ivanshilkov 0 / 0 / 0 Регистрация: 24.05.2017 Сообщений: 3

	Прозрачная панель ,скрыть кнопки 15.06.2017, 18:52. Показов 3456. Ответов 9 Метки нет (Все метки) Добрый вечер друзья! Последние два года находил ответы на все вопросы но тут тупик. Подскажите пожалуйста как сделать панель невидимой или на одной картинке создать две активные зоны. То есть при нажатие на верхнюю часть картинки произойдёт собитие 1 ,а при нажатие на нижнюю часть событие 2. Я пытался выполнить это через панели,но их видно,что не позволительно. 0

@RefSol 504 / 247 / 75 Регистрация: 31.10.2010 Сообщений: 747
	15.06.2017, 19:35
	Ivanshilkov, самое простое решение это: нажатие одно событие которое разбивается на два или более в зависимости от координат положения курсора. Т.е. в событии необходимо определять координату (одну или обе) и принимать решение что делать дальше по условию. 1

DenNik Житель Земли 3004 / 3026 / 390 Регистрация: 26.07.2011 Сообщений: 11,465 Записей в блоге: 1
	15.06.2017, 19:38
	при нажатии на картинку анализируй координаты, в которых произошел клик так понятнее? 1

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	15.06.2017, 19:44
	Вообще очень рекомендую почитать Александр Чиртик Delphi. Трюки и эффекты На мой взгляд, одна из самых ценных в плане полезности книг. Там же найдете ответ на ваш вопрос. 1

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,667 Записей в блоге: 21
	15.06.2017, 20:07
	нет никаких "активных зон" это просто кон-цеп-ци-я если вы нажали кнопку мыши, вы получите событие OnMouseDown с координатами отпустили - OnMouseUp также с координатами если Y < половины высоты, то считайте себе что вы попали в одну зону, иначе - в другую Более сложные проверки координат дадут вам не только больше зон, но и могут сделать их разного размера и формы ) 1

@Ivanshilkov 0 / 0 / 0 Регистрация: 24.05.2017 Сообщений: 3
	17.06.2017, 17:22 [ТС]
	ОГРОМНОЕ СПАСИБО!!! Добавлено через 10 минут DenNik, А мажешь сделать пример кода,если тебе не трудно. 0

@Ivanshilkov 0 / 0 / 0 Регистрация: 24.05.2017 Сообщений: 3
	17.06.2017, 20:57 [ТС]
	Пытливый, Друг,а подскажи код для картинки 217*241. и при нажатие на зону 1 ,процедура 1,а на зону 2,процедура 2. 0

Прозрачная панель ,скрыть кнопки

Решение