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;

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

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