| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

onHelp [D5, WinXP]

TButton ©   (2004-12-30 04:13:00) 

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

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

---

TButton   (2004-12-30 04:44:00) [1]

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

---

Adder   (2004-12-30 04:35:00) [2]

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:34:00) [3]

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

---

Adder   (2004-12-30 04:29:00) [4]

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;

---

Наверх