VPF::отлов biHelp в динамичесосоздаваемом приложении

AtomoS

Дата 30.12.2011, 17:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 46
Регистрация: 30.8.2009

Репутация: нет
Всего: нет

Создаю програмно форму, задаю кнопки упраления окном: закрытие и справка (?)

Пытаюсь отловить нажатие на эту кнопку и вывести сообщение, но ничего не получается.
Реализовывал данную фишку в стандартом проекте delphi - всё работало.

пример 1: стандартный проект | biHelp работает
пример 2: динамическое создание формы | biHelp не работает

подскажите, где собака зарыта?

AtomoS

Дата 8.1.2012, 14:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 46
Регистрация: 30.8.2009

Репутация: нет
Всего: нет

всё ещё нужнаюсь в помощи

CROTishka

Дата 11.1.2012, 14:17 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 30.7.2009

Репутация: нет
Всего: 2

Что-то у вас полная каша в голове. Почитали бы хелп хотя бы по тому, что вы используете? Кто у вас будет пересылать сообщения вашей форме? Хинт: читайте про IDispatch.

Добавлено @ 14:18
Ладно, я сегодня добрый:

Цитата

program help;

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, XPman;

type
  TForm1 = class(TComponent)
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  private
    procedure wmNCLButtonDown(var Msg : TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
    procedure wmNCLButtonUp(var Msg : TWMNCLButtonUp); message WM_NCLBUTTONUP;
  end;

//var
//  Form1: TForm;

constructor TForm1.Create(AOwner: TComponent);
begin
  inherited;
  Form1 := TForm(AOwner);

  with Form1 do
  begin
    Caption := 'help button';
    Height := 100;
    Width := 250;
    Position := poDesktopCenter;
    BorderStyle := bsDialog;
    BorderIcons := [biSystemMenu, biHelp];
  end;
end;

destructor TForm1.Destroy;
begin
  inherited;
end;

procedure TForm1.wmNCLButtonDown(var Msg : TWMNCLButtonDown);
begin
  if Msg.HitTest = HTHELP then
  begin
    Msg.Result := 0;
  end
  else inherited;
end;

procedure TForm1.wmNCLButtonUp(var Msg : TWMNCLButtonUp);
begin
  if Msg.HitTest = HTHELP then
  begin
    Msg.Result := 0;
    ShowMessage('сообщение');
  end
  else inherited;
end;

begin
  Application.Initialize;
  Application.CreateForm(TForm, Form1);
  TForm1.Create(Application);
  Application.Run;
end.

Это сообщение отредактировал(а) CROTishka - 11.1.2012, 14:19

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »