Обработка событий через TActionlist

← →
diabolik_krsk (2004-10-25 14:09) [0]

Доброго времени суток уважаемые мастера. У меня следующий вопрос.

На форме размещено 4 компонента TPanel и компонент TActionlist.
В TActionlist пишу обработчик событий и привязываю его к свойству OnClick компонента TPanel.
Однако в обработчике событий не могу определить над какой панелью нажата кнопка мыши.
Пытался обработать if Main.Panel1.OnClick - однако дельфя пишет: недостаточно параметров.
Подскажите как решить данную ситуацию.

← →
Pentium133 © (2004-10-25 14:14) [1]

возможнов в обработчике OnClick параметр Sender и будет как раз нужной панелью

← →
Ega23 © (2004-10-25 14:15) [2]

Если у тебя Action, то в качестве Sender ты получаешь TAction.
Можно просто создать метод OnPanelClick(Sender:TObject), присвоить его твоим панелькам. Тогда в качестве Sender ты уже TPanel будешь получать.
Как с Action быть точно не помню, попробую поискать...

← →
diabolik_krsk (2004-10-26 05:40) [3]

Буду благодарен.

← →
Ega23 © (2004-10-26 09:52) [4]

Не нашёл... Попробуй Tag свойство использовать.

← →
Экспериментатор (2004-10-26 10:09) [5]

Используй в обработчике событий
GetCursorPos() для определения координат мыши

и function ControlAtPos(const Pos: TPoint; AllowDisabled: Boolean, AllowWinControls:Boolean=False): TControl;

для определения на каким контролом она вообще находится

← →
Экспериментатор (2004-10-26 10:14) [6]

плюс возможно небольшое колдунство с ClientToScreen ScreenToClient

что-то типа так

type THuckActionLink = class(TControlActionLink);

procedure TForm1.Action1OnExecute(Sender:TObject);
var
ThisControl:TControl;
begin
if Sender is TControl
then
ThisControl:=TControl(Sender)
else
if Sender is TControlActionLink
then
ThisControl:=THuckActionLink(Sender).FClient
else
ThisControl:=nil;
// далее работаем с ThisControl
end;

← →
diabolik_krsk (2004-11-03 08:04) [8]

Спасибо. Все работает.

Обработка событий через TActionlist Найти похожие ветки