как отличить внешний вызов функции от программного

[Sergey1985]

Здравствуйте товарищи форумчане. На повестку дня выносится след. вопрос.  Такая ситуация. Есть на форме Label и CheckBox. Также имеется обработчик нажатия на Label   void __fastcall TMainForm::LabelClick(TObject *Sender)
 так вот когда галочка на   CheckBox стоит нужно запретить пользователю щелчок. В то же время не блокировать программный вызов этой функции.
Вот как это можно реализовать    

[serg76]

проверять

Код

  if(!CheckBox1->Checked)
  {
    Label1->Caption="ok";
  }

[Sergey1985]

ну так в этом случае точно так же будет работать эта функция и при программном ее вызове
Label1->Click();
В этом то и загвоздка определить функция была задействована путем нажатия на мышку или программно

[POV]

Label1->Enabled=false когда установилась галочка (через обработчик чекбокса)

[OVE]

Можно использовать какую-нибудь глобальную переменную.
Перед программным вызовом устанавливать эту переменную в true, а после - сбрасывать в false

Код:

bool bIsProg=false;
.....
bIsProg=true;
LabelClick(...);
bIsProg=false;

а в самом обработчике нажатия сделать дополнительную проверку этой глобальной переменнной

Код:

if((CheckBox1->Checked)&&(!bIsProg)) return;

[serg76]

В этом то и загвоздка определить функция была задействована путем нажатия на мышку или программно

у каждого компанента есть свойства MouseDown, MouseUp - проверяй в момент нажатия

[Sergey1985]

Попробую все варианты

[Sergey1985]

Больше всего мне понравилась идея с Enable = false (true) но при Enable = false компонент меняет свой цвет. А заблокировать это изменение можно? Естественно не создавая ремейковый новый класс от родительского?

[POV]

Больше всего мне понравилась идея с Enable = false (true) но при Enable = false компонент меняет свой цвет. А заблокировать это изменение можно? Естественно не создавая ремейковый новый класс от родительского?

Лабел не меняет же! А едит затемняется. Едит можно расположить, например, на панели без бордюра и енаблить именно контейнер.

[S0mbre]

... Едит ... и енаблить ...

(С) "В моем доме - не выражаться!"  

[Sergey1985]

... Едит ... и енаблить ...

Во то что нужно!!! Тема!!! Спасибо