Клик-выполнить

@Gantzer61 · Регистрация: 11.12.2011

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

Всем доброго время суток. Мне необходимо сделать так, что бы когда я кликаю мышкой по любому объекту, месту на форме или нажимаю любую клавишу панель скрывалась(Panel1.Visible=false). Как это можно реализовать?

@Fenix_dragon · 12.05.2013, 23:08

Gantzer61, событиями

@Gantzer61 · 12.05.2013, 23:14 **[ТС]**

Fenix_dragon, ну это понятно что событиями. К примеру нажатие кнопки OnKeyPres, а вот как нажатие мыши сделать по любому месту или объекту по форме, OnClick почему та не срабатывает.

@Shurvik · 12.05.2013, 23:15

У формы KeyPreview:=true и на OnClick и OnKeyDown (Up, Press) вешай Panel1.Visible=false

@Drongo · 12.05.2013, 23:16

для мыши

Delphi    
        
    Скопировано
1
OnMouseDown

@Fenix_dragon · 12.05.2013, 23:17

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

Fenix_dragon, ну это понятно что событиями. К примеру нажатие кнопки OnKeyPres, а вот как нажатие мыши сделать по любому месту или объекту по форме, OnClick почему та не срабатывает.

не верю. скорей всего не туда написал

@Gantzer61 · 12.05.2013, 23:18 **[ТС]**

OnClik срабатывание если я жму только по форме а не по компонентам на ней. У меня на форме очень много компонентов неужели прописывать придётся на каждом или можно как нибудь выкрутится?

@Drongo · 12.05.2013, 23:18

читай мой пост выше

@Gantzer61 · 12.05.2013, 23:24 **[ТС]**

Drongo, Прописал, не срабатывает.

Delphi    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
procedure TMainForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  sPanel9.Visible:=false;
end;

@Fenix_dragon · 12.05.2013, 23:26

Gantzer61, можеш назначить нужный обработчик события нужным элементам

@cotseec · 12.05.2013, 23:29

у панели есть событие OnExit (срабатывает только в случае, когда на этой панели есть объекты, способные принимать фокус, при передаче фокуса на другой объект, находящийся не на этой панели вызывается обработчик данного события)

Delphi    
        
    Скопировано
1
sPanel9.Visible:=false;

пиши в OnExit sPanel9 (если панель необходимо прятать, когда пользователь "переводит" фокус с нее на другой объект)

Добавлено через 1 минуту
клик на форме придется обрабатывать отдельно

@Gantzer61 · 12.05.2013, 23:38 **[ТС]**

Fenix_dragon, выделил всё и назначил все обработчик OnMauseDown тот что на форме, работает спасибо.

Добавлено через 1 минуту
cotseec, попробую сейчас таким способом

Добавлено через 5 минут
cotseec, прописал но не как не реагирует.

Delphi    
        
    Скопировано
1
2
3
4
procedure TMainForm1.sPanel9Exit(Sender: TObject);
begin
  sPanel9.Visible:=false;
end;

@Dandy7 · 13.05.2013, 19:02

просто

Delphi    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
procedure button1.click{там что-то eщё}
begin
if button1.click then panel1.visible:=false;
if form1.click then panel1.visible:=false;
end;

@Shurvik · 13.05.2013, 21:21

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

просто

Delphi    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
procedure button1.click{там что-то eщё}
begin
if button1.click then panel1.visible:=false;
if form1.click then panel1.visible:=false;
end;

?????????? Что это ?

@Fenix_dragon 118 / 118 / 2 Регистрация: 29.01.2013 Сообщений: 437
	12.05.2013, 23:26	10
	Gantzer61, можеш назначить нужный обработчик события нужным элементам 1

Новые блоги и статьи Все статьи Все блоги /
Простая нейросеть на КуМир: Создание и обучение EggHead 16.03.2025 Искусственные нейронные сети — удивительная технология, позволяющая компьютерам имитировать работу человеческого мозга. Если вы хотя бы немного интересуетесь современными технологиями, то наверняка. . .	Исполнитель Кузнечик в КуМир: Решение задач EggHead 16.03.2025 Среди множества исполнителей в системе КуМир особое место занимает Кузнечик — простой, но невероятно полезный виртуальный персонаж, который перемещается по числовой прямой, выполняя ваши команды. На. . .	Исполнитель Водолей в КуМир: Решение задач EggHead 16.03.2025 Разработка алгоритмического мышления — одна из ключевых задач для начинающих программистов, и система КуМир предлагает отличный способ погрузиться в этот процесс. Среди множества исполнителей в этой. . .	Исполнитель Чертежник в КуМир: Решение задач EggHead 16.03.2025 Представьте, что вы можете рисовать на бесконечной координатной плоскости, перемещая точку, которая оставляет след. По вашей команде она может поднять перо и двигаться, не оставляя следа, или. . .	Исполнитель Робот в КуМир: Решение задач EggHead 16.03.2025 КуМир (Комплект Учебных МИРов) — это учебная среда программирования, разработанная специально для обучения базовым концепциям алгоритмизации. Её главная фишка — использование русскоязычного. . .
Исполнитель Черепаха в КуМир: Решение задач EggHead 16.03.2025 Представьте, что вы впервые учитесь программировать, а перед вами стоит задача заставить маленькую виртуальную черепашку рисовать на экране. Звучит забавно? Эта идея зародилась ещё в 1967 году, когда. . .	Конвейеры данных с Apache Kafka Javaican 16.03.2025 В мире, где данные стали новой нефтью, Apache Kafka зарекомендовал себя как мощный инструмент для построения надежных и масштабируемых конвейеров данных. Созданный изначально командой LinkedIn в 2011. . .	Deno против Node.js: Будущее JavaScript рантайма run.dev 16.03.2025 За последнее десятилетие Node. js стал абсолютным лидером среди JavaScript-рантаймов и фактическим стандартом для серверной разработки на JavaScript. Но в 2018 году тот же разработчик, который создал. . .	SwiftUI или UIKit - что выбрать для нового приложения iOS? mobDevWorks 16.03.2025 Когда Apple представила SwiftUI на WWDC 2019, многим показалось, что дни UIKit сочтены. Новый декларативный фреймворк предлагал радикально иной подход к разработке интерфейсов. Вместо кропотливого. . .	Docker: Руководство для начинающих по созданию первого приложения Mr. Docker 16.03.2025 Docker — это платформа, которая упаковывает ваше приложение и все его зависимости в стандартизированные блоки, называемые контейнерами. Эти контейнеры изолированы друг от друга и от основной системы,. . .

@Gantzer61 6 / 6 / 4 Регистрация: 11.12.2011 Сообщений: 142
		1
	Клик-выполнить 12.05.2013, 22:43. Показов 1474. Ответов 13 Метки нет (Все метки) Всем доброго время суток. Мне необходимо сделать так, что бы когда я кликаю мышкой по любому объекту, месту на форме или нажимаю любую клавишу панель скрывалась(Panel1.Visible=false). Как это можно реализовать? 0

@Fenix_dragon 118 / 118 / 2 Регистрация: 29.01.2013 Сообщений: 437
	12.05.2013, 23:08	2
	Gantzer61, событиями 0

@Gantzer61 6 / 6 / 4 Регистрация: 11.12.2011 Сообщений: 142
	12.05.2013, 23:14 [ТС]	3
	Fenix_dragon, ну это понятно что событиями. К примеру нажатие кнопки OnKeyPres, а вот как нажатие мыши сделать по любому месту или объекту по форме, OnClick почему та не срабатывает. 0

@Shurvik 46 / 46 / 14 Регистрация: 12.02.2013 Сообщений: 157
	12.05.2013, 23:15	4
	У формы KeyPreview:=true и на OnClick и OnKeyDown (Up, Press) вешай Panel1.Visible=false 0

@Fenix_dragon 118 / 118 / 2 Регистрация: 29.01.2013 Сообщений: 437
	12.05.2013, 23:17	6
	Сообщение от Gantzer61 Fenix_dragon, ну это понятно что событиями. К примеру нажатие кнопки OnKeyPres, а вот как нажатие мыши сделать по любому месту или объекту по форме, OnClick почему та не срабатывает. не верю. скорей всего не туда написал 0

@Gantzer61 6 / 6 / 4 Регистрация: 11.12.2011 Сообщений: 142
	12.05.2013, 23:18 [ТС]	7
	OnClik срабатывание если я жму только по форме а не по компонентам на ней. У меня на форме очень много компонентов неужели прописывать придётся на каждом или можно как нибудь выкрутится? 0

@Drongo Админю немножко :) 126 / 115 / 25 Регистрация: 05.01.2009 Сообщений: 889
	12.05.2013, 23:18	8
	читай мой пост выше 0