Текущий архив: 2011.07.31;
Скачать: 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 вся ветка
Текущий архив: 2011.07.31;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.01 c
