Форум: "Основная";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];
Вниз
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.039 c
