Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > События от объектов

Автор: Vetos 10.10.2006, 09:35

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

Автор: Yanis 10.10.2006, 09:55

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

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

Автор: Vetos 10.10.2006, 10:38

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

Автор: Matematik 10.10.2006, 10:56

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

Автор: Yanis 10.10.2006, 11:04

http://forum.vingrad.ru/index.php?showtopic=115335&view=findpost&p=880652
http://forum.vingrad.ru/index.php?showtopic=113983
http://forum.vingrad.ru/index.php?showtopic=114227&view=findpost&p=872416
http://forum.vingrad.ru/index.php?showtopic=108445

Автор: Vetos 10.10.2006, 14:34

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

Код


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 можно будет создать событие для каждой кнопки разное.