Вопрос Как сделать выбор языка неактивным.

Timick

Старожил
Всем привет! Можно ли как - то сделать неактивным выбор языка? Полностью убрать эти иконки я смог, а вот сделать их неактивными никак не получается. Может кто - то знает как это сделать? Заранее спасибо!)
 

Вложения

Kotyarko_O

Новичок
Timick,
Код:
  LanguageButton[1]:=BtnCreate(WizardForm.Handle,ScaleX(395),ScaleY(403),ScaleX(48),ScaleY(36),ExpandConstant('{tmp}\ru.png'),0,True);
  BtnSetEnabled(LanguageButton[1], False);
//  BtnSetEvent(LanguageButton[1],BtnClickEventID,CallbackAddr('SelectLanguage'));
//  BtnSetEvent(LanguageButton[1],BtnMouseEnterEventID,CallbackAddr('WFBtnEnter'));
  BtnSetCursor(LanguageButton[1],GetSysCursorHandle(32649));
 
  LanguageButton[2]:=BtnCreate(WizardForm.Handle,ScaleX(460),ScaleY(403),ScaleX(48),ScaleY(36),ExpandConstant('{tmp}\us.png'),0,True);
  BtnSetEnabled(LanguageButton[2], False);
//  BtnSetEvent(LanguageButton[2],BtnClickEventID,CallbackAddr('SelectLanguage'));
//  BtnSetEvent(LanguageButton[2],BtnMouseEnterEventID,CallbackAddr('WFBtnEnter'));
  BtnSetCursor(LanguageButton[2],GetSysCursorHandle(32649));
 

Timick

Старожил
Timick,
Код:
  LanguageButton[1]:=BtnCreate(WizardForm.Handle,ScaleX(395),ScaleY(403),ScaleX(48),ScaleY(36),ExpandConstant('{tmp}\ru.png'),0,True);
  BtnSetEnabled(LanguageButton[1], False);
//  BtnSetEvent(LanguageButton[1],BtnClickEventID,CallbackAddr('SelectLanguage'));
//  BtnSetEvent(LanguageButton[1],BtnMouseEnterEventID,CallbackAddr('WFBtnEnter'));
  BtnSetCursor(LanguageButton[1],GetSysCursorHandle(32649));

  LanguageButton[2]:=BtnCreate(WizardForm.Handle,ScaleX(460),ScaleY(403),ScaleX(48),ScaleY(36),ExpandConstant('{tmp}\us.png'),0,True);
  BtnSetEnabled(LanguageButton[2], False);
//  BtnSetEvent(LanguageButton[2],BtnClickEventID,CallbackAddr('SelectLanguage'));
//  BtnSetEvent(LanguageButton[2],BtnMouseEnterEventID,CallbackAddr('WFBtnEnter'));
  BtnSetCursor(LanguageButton[2],GetSysCursorHandle(32649));
Спасибо)
 
Сверху