VPF::События от объектов - Форум программистов

Vetos

Дата 10.10.2006, 09:35 (ссылка)

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

Загрузка ...

Опытный

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

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

Я создаю несколько кнопок в RunTime и хочу чтобы каждая кнопка выполняла своё действие от события OnClick. Как мне это организовать? И вообще хотелось бы побольше узнать об RunTime.
Помогите пожалуйсто. smile

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

Строить нужно так, чтоб никто не сломал!
А ломать, чтоб никто не знал 8) :ne_huliganit

Yanis

Дата 10.10.2006, 09:55 (ссылка)

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

Загрузка ...

Эксперт

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

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

Vetos
Наверное этот вопрос достал уже не только меня smile

Воспользуйся поиском, поищи по форуму. Эта тема часто поднимается.

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

*щёлк*

Vetos

Дата 10.10.2006, 10:38 (ссылка)

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

Загрузка ...

Опытный

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

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

Может подскажиш где искать, а то кроме этой темы ничего не находит.

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

Строить нужно так, чтоб никто не сломал!
А ломать, чтоб никто не знал 8) :ne_huliganit

Matematik

Дата 10.10.2006, 10:56 (ссылка)

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

Загрузка ...

Эксперт

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

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

Если читаешь это сообщение, нажми кнопку End (обычно находится над стрелочками) на своей клавиатуре, увидишь несколько ссылок

Yanis

Дата 10.10.2006, 11:04 (ссылка)

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

Загрузка ...

Эксперт

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

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

http://forum.vingrad.ru/index.php?showtopi...st&p=880652
http://forum.vingrad.ru/index.php?showtopic=113983
http://forum.vingrad.ru/index.php?showtopi...st&p=872416
http://forum.vingrad.ru/index.php?showtopic=108445

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

*щёлк*

Vetos

Дата 10.10.2006, 14:34 (ссылка)

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

Загрузка ...

Опытный

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

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

Всё спасибо разобрался мне всё понятно.
Вот код чтоб люди не мучались.

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure newbuttonclick(Sender:Tobject);
    procedure newbutton;
  end;

var
  Form1: TForm1;
  v:integer;
implementation

{$R *.dfm}

procedure TForm1.newbuttonclick(Sender:Tobject);
begin
edit1.text:='Нажата кнопочка  '+Tbutton(Sender).Name;
end;

procedure TForm1.newbutton;
var b:Tbutton;
begin
b:=TButton.Create(form1);
b.Parent:=form1;
b.SetBounds(10,10+v*30,80,25);
b.Caption:='Кнопка';
b.OnClick:=Form1.newbuttonClick;
b.Name:='b'+inttostr(v);
inc(v);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
newbutton;
end;

end.

Пример работает с именем созданной кнопочки. Применив оператор CASE можно будет создать событие для каждой кнопки разное.

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

Строить нужно так, чтоб никто не сломал!
А ломать, чтоб никто не знал 8) :ne_huliganit

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