Скачать: CL | DM;

Сообщения Windows   Найти похожие ветки 

← →
Tornado ©   (2004-04-02 08:04) [0]

Подскажите пожалуйста как обработать сообщение WM_Help которое возникает при нажатии на кнопку HELP в окне диалога MessageDlg("Сообщение", mtInformation, [mbOK, mbHelp], 0)? Спасибо.

---

← →
Романов Р.В. ©   (2004-04-02 08:53) [1]

TForm1 = class(TForm)
...
private
procedure WMHelp(var Message: TWMHelp); message WM_HELP;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMHelp(var Message: TWMHelp);
var
Control: TWinControl;
begin
Control := FindControl(Message.HelpInfo^.hItemHandle);
if Assigned(Control) then
ShowMessage(Control.Name);
end;

---

← →
Романов Р.В. ©   (2004-04-02 08:54) [2]

Извеняюсь не внимательно прочитал вопрос.

---

← →
Tornado ©   (2004-04-02 09:03) [3]

>>> Романов Р.В. ©   (02.04.04 08:53) [1]

Код приведенный Вами это будет реакция именно на нажатие кнопки HELP в MessageDlg?

---

← →
Романов Р.В. ©   (2004-04-02 09:46) [4]

нет это из другой оперы

---

← →
Игорь Шевченко ©   (2004-04-02 10:16) [5]

" Use the HelpCtx parameter to specify the context ID for the help topic that should appear when the user clicks the help button or presses F1 while the dialog is displayed."

По нажатию на кнопку Help вызывается процедура из Dialogs.pas

procedure TMessageForm.HelpButtonClick(Sender: TObject);
begin
 Application.HelpContext(HelpContext);
end;

Для того, чтобы среагировать на это событие, нужно обрабатывать событие Application.OnHelp, например так (учитывая, что на главной форме имеется компонент ApplicationEvents)

function TfMain.ApplicationEventsHelp(Command: Word; Data: Integer;
 var CallHelp: Boolean): Boolean;
begin
 CallHelp := true;
 Result := true;
end;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.031 c