Как сделать OnClick на Label если Enabled=false

← →
Vasja123 (2011-04-26 20:33) [0]

Привет всем мастерам. я пишу MPlayer. хочу написать фунцию A -> B. как в обычном плеере. для этого я на панельку положил Label и поставил Enabled=false. и у меня не работает OnClick. Здесь есть пример как сделать OnClick parenta,

type TControlAccess = class(TControl); procedure TForm1.Edit1Click(Sender: TObject); begin TEdit(Sender).Tag := TEdit(Sender).Tag + 1; Caption := "OnClick " + IntToStr(TEdit(Sender).Tag); end; procedure TForm1.FormClick(Sender: TObject); var c: TControl; p: TPoint; begin p := Mouse.CursorPos; p := ScreenToClient(p); c := ControlAtPos(p, true, true); if (c <> nil) then if not c.Enabled and Assigned(TControlAccess(c).OnClick) then TControlAccess(c).Click; end;

но у меня не получается, т.к. Label лежит на Panel. Help plz!!!!

← →
Andy BitOff © (2011-04-26 20:36) [1]

Мы не ищем легких путей. Наш путь ректальный. (?)

← →
vasja123 (2011-04-26 21:04) [2]

спс я понял как это сделать.

Можно просто менять цвет текста в label, оставляя его все еще Enabled = true. тогда и onClick будет доступен.

Как сделать OnClick на Label если Enabled=false Найти похожие ветки