Текущий архив: 2005.01.16;
Скачать: CL | DM;

Вниз

onHelp   Найти похожие ветки 

← →
TButton ©   (2004-12-30 04:13) [0]

Уважаемые господа умные дядьки (и тётьки, если таковые имеются).
задумал я надысь дуже интересную штуку.
включил в BorderIcons biHelp
и решил, что по нажатию этой кнопки будет выскакивать Message от меня с кратким хелпом, ибо сама програма настолько мала, что делать другой хелп не целесообразно.
думал, что нажатие этой кнопки будет генерить событие он хелп,
но не тут то было. онХелп молчит.
если вас не затруднит, просвятите меня, направьте мою силу в нужное русло.

заранее благодарить не буду, ибо нефиг. =)
искрене ваш TButton(TButtonControl)

---

← →
Adder ©   (2004-12-30 04:29) [1]

type
 TForm1 = class(TForm)
 private
   { Private declarations }
 public
   { Public declarations }
   procedure WMSYSCOMMAND(var msg:TMessage);message WM_SYSCOMMAND;
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.WMSYSCOMMAND(var msg:TMessage);
 begin
   if (Msg.wParam=SC_CONTEXTHELP) then
    begin
       ShowMessage("HelpMe!");
    end;
   inherited;
 end;

---

← →
TButton ©   (2004-12-30 04:34) [2]

спасибо.
действительно, месаг выскакивает, но после закрытия окна месага остается курсор crHelp (до первого клика), что не есть красиво.

---

← →
Adder ©   (2004-12-30 04:35) [3]

SC_CONTEXTHELP Changes the cursor to a question mark with a pointer. If the user then clicks a control in the dialog box, the control receives a WM_HELP message.


procedure TForm1.WMSYSCOMMAND(var msg:TMessage);
 begin
   if (Msg.wParam=SC_CONTEXTHELP) then
    begin
       ShowMessage("HelpMe!");
       exit; // -) забыла строчку
    end;
   inherited;
 end;



---

← →
TButton ©   (2004-12-30 04:44) [4]

супер!
просто супер!
чмакся в обе щёки.
с наступающим.

---

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

Текущий архив: 2005.01.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.037 c