VPF::Событие при нажатии на динамическу кнопку

Sergio

Дата 30.4.2007, 15:23 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 843
Регистрация: 28.7.2006
Где: Solar System-> Earth

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

Здраствуйте. Как обработать событие при нажатии на динамическу кнопку? Вот кнопка:

Код


        Forma = new TForm(Application, 1);
        Forma->Width = 320;
        Forma->Height = 365;
        Forma->Left = Form1->Left + Form1->Width/2 - (Forma->Width/2);
        Forma->Top = Form1->Top + Form1->Height/2 - (Forma->Height/2);
        Forma->BorderStyle = bsSingle;
        Forma->BorderIcons = TBorderIcons() <<biSystemMenu <<biMinimize;
        Forma->Show();

        SendButton = new TButton(Forma);
        SendButton->Parent = Forma;
        SendButton->Left = Forma->Width - SendButton->Width - 15;
        SendButton->Top = Forma->Height - SendButton->Height - 45;
        SendButton->Caption = "ok";

Зарание спасибо.

Anikmar

Дата 30.4.2007, 16:11 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2513
Регистрация: 26.11.2006
Где: Санкт-Петербург

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

Присвоить свойсту OnClick адрес метода-обработчика.
Создайте в форме метод по образцу buttonщвского OnClick и после создания кнопки напишите:

SendButton->OnClick = MyOnClick;

Klin

Дата 30.4.2007, 18:51 (ссылка)

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

Загрузка ...

Эксперт

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

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

Чтобы не было вопросов smile

:

В -cpp файле:

Код


 . . . . . . .
  SendButton->Top = Forma->Height - SendButton->Height - 45;
  SendButton->Caption = "ok";   
  SendButton->OnClick  = MyClick;
 }

 void __fastcall TForm1::MyClick(TObject *Sender)
 {
  Forma->Close();
 }

В -h файле:

Код


class TForm1 : public TForm
{
__published:
 void __fastcall MyClick(TObject *Sender);
 . . . . . . .

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

Я человек - попробуйте обвинить меня за это.

Sergio

Дата 30.4.2007, 20:42 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 843
Регистрация: 28.7.2006
Где: Solar System-> Earth

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

Klin, что-то не понял что писать в Н файле. Зачем класс TForm1? Я думал что вот так надо:
В -h файле

Код


class PrivateForm {

 private:
    String Ip;
    String Nick;

    TForm* Forma;
    TMemo* ReceiveMemo;
    TMemo* ReceiveMemo2;
    TButton* SendButton;

 public:
    PrivateForm(String _IP, String _Nick);
    ~PrivateForm();
 private:
 void __fastcall MyClick(TObject *Sender); 
 };

P.S. что за "__published:"?? Потому что мне "компиллер" написал:

Цитата

[C++ Error] File2.h(25): E2289 __published or __automated sections only supported for VCL classes

Это сообщение отредактировал(а) Sergio - 30.4.2007, 20:45

Klin

Дата 30.4.2007, 21:13 (ссылка)

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

Загрузка ...

Эксперт

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

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

Это я пример написал, с кусом кода из билдера, короче пишешь просто: void __fastcall MyClick(TObject *Sender);

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

Я человек - попробуйте обвинить меня за это.

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