[JunkieBeat]

Доброго времени суток.
Мне надо сделать следующие, у меня в программе имеется достаточное кол-во выпадающих панелей, и я хочу что бы они закрывались как только пользователь нажал куда угодно кроме этой панели.

То есть что бы мои панели закрывались как контекстное меню, если его вызвать и нажать куда угодно мимо него, то оно сразу закрывается,мне надо сделать такое же со своими панелями.
Отследить нажатие на фоновой компонент я не могу, т.к там могут быть разные компоненты.

Конечно можно сделать какой то невидимый компонент что бы тот закрывал все остальное пространство окна кроме самой панели и выслеживать клик по нему, но это не очень меня вдохновляет ))

Кто подскажет как это можно реализовать, может есть обработчик исключительно нажатия на мышку?

[poli-smen]

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

Мне надо сделать следующие, у меня в программе имеется достаточное кол-во выпадающих панелей, и я хочу что бы они закрывались как только пользователь нажал куда угодно кроме этой панели.

Выпадающие панели это что такое?
Разработка самопальных комбобоксов обсуждалась буквально вчера-сегодня вот в этой теме: компонент за пределами формы

[JunkieBeat]

Я не правильно выразился, это обычные панели,просто невидимые,по нажатию кнопки идет визибл=тру, а вот отключать её надо по нажатию ЛКМ мимо это йпнаели

[Alegun]

Если правильно понял, то можно сделать примерно так

Задайте всем панелям вот такой обработчик

Код:

1 2 3 4 5

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin (Sender as TPanel).Height:= 100 {visible:= true}; end;

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

Код:

1 2 3 4 5 6 7 8 9

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer);   var   i: integer; begin if Button = mbLeft then for i: = 0 to ComponentCount -1 do  if (Components[i] is TPanel) then   (Components[i] as TPanel).Height:= 20 {visible:= false}; end;

главное чтоб других панелей не использовалось или тогда нужным задайте свойство tag напр. равным 10 и отслеживайте панельки только с таким его значением


Добавлено немного позже

Вот ещё вариант, с глобальным ЛКМ приложения, только нужно в var секции формы сначало добавить сторковую переменную в которой будет содержаться имя "развёрнутой" панельки - нужно чтоб не убрать её если курсор в данный момент над ней

Код:

1 2 3 4 5

... var   Form1: TForm1;   CmpName: string; ...

затем создем обработчик сообщений сборки

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean); var  nm: string; begin  inherited;    if Msg.message = WM_LBUTTONDOWN then   begin    if (FindControl(WindowFromPoint(Msg.pt)) is TPanel) then     nm:= (FindControl(WindowFromPoint(Msg.pt)) as TPanel).Name;      if (FindComponent(CmpName) is TPanel) and (nm <> CmpName) then        (FindComponent(CmpName) as TPanel).Visible:= false;   end; end;

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

Код:

1 2 3 4

procedure TForm1.FormCreate(Sender: TObject); begin  Application.OnMessage:= AppMessage; end;

и теперь вам осталось лишь позаботиться о том, чтоб в момент показа "невидимки" её имя оказалось в CmpName, напр.

Код:

1 2 3 4 5

procedure TForm1.Button1Click(Sender: TObject); begin Panel1.Visible:= true; CmpName:= Panel1.Name; end;

всё

[JunkieBeat]

Спасибо большое, то что надо,прекрасно работает