| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как сделать OnClick на Label если Enabled=false [D7, XP]

Vasja123 ©   (2011-04-26 20:33:00) 

Привет всем мастерам. я пишу 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!!!!

---

И. Павел   (2011-04-26 22:17:00) [1]

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

---

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

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

---

Andy BitOff   (2011-04-26 20:36:00) [3]

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

---

Наверх