Скачать: CL | DM;

Как сделать 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]

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

---

← →
И. Павел ©   (2011-04-26 22:17) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.004 c