VPF::Обращение к кнопке созданной на API.

Viruser

Дата 11.8.2004, 21:26 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 4.8.2004
Где: Ukraine, Melitopo l

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

Я создал кнопку функцией CreateWindow(). Как мне к ней обращаться? Как ей присвоить событие onClick?

Woody Woodpecker

Дата 11.8.2004, 21:32 (ссылка)

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

Загрузка ...

Новичок

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

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

Я делал так: название_переменной.OnClick=название_процедуры

<Spawn>

Дата 11.8.2004, 21:35 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Viruser Событие ей обычными способами ни как не присвоить

Тебе нужно ловить сообщение WM_COMMAND в оконной процедуре и проверять lParam на равенство хендлу кнопки и старшее слово wParam должно быть равно BN_CLICKED

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

S.A.P.

Дата 11.8.2004, 21:36 (ссылка)

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

Загрузка ...

Эксперт

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

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

В API нет понятия событие, тут с сообщениями возюкаться придется, а в принципе можно через TButton связать и присвоить событие, только зачем такой геморой? Лучше сразу через VCL. А вообще, IMHO, если с API связываться, то только не через Delphi, а через, скажем, MSVC.

Woody Woodpecker

Дата 11.8.2004, 21:36 (ссылка)

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

Загрузка ...

Новичок

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

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

А обращаться к ней - при создании надо было присвоить переменную какую-нибудь и жить спокойно. А вообще я создаю так: делаю переменную нужного типа и пишу где надо: название_переменной:=тип.Create(self). Потом устанавливаю нужные св-ва и т.п.

<Spawn>

Дата 11.8.2004, 21:42 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Вот пример(не совсем Win API, но думаю понятно):

Код

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure WMCommand(var Msg: TMessage); message WM_COMMAND;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  BtnHandle: THandle;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  BtnHandle := CreateWindowEx(0, 'button', 'test', WS_CHILD or WS_VISIBLE,
                 10, 10, 60, 20, Handle, 0, hInstance, 0);
end;

procedure TForm1.WMCommand(var Msg: TMessage);
begin
 inherited;
 if Msg.LParam = BtnHandle then
   if Msg.WParamHi = BN_CLICKED then
     ShowMessage('Clicked');
end;

--------------------

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