[Мишка-90]

всем здрасти.
помогите мне пожалуйста, я создаю динамически кнопку

Код:

B : TBitBtn;

- глобальная переменная

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  B := TBitBtn.Create(self);
  В.Parent := self;
  
end;

как мне обработать событие кнопки? все идеи которые были в голове ошибочные..

[Janom]

Код:

B.OnClick:=Button1.OnClick;

[Мишка-90]

Код:

B := TBitBtn.Create(self);
  b.Parent := self;
  b.OnClick := TBitBtn.onClick;

ошибка возникает

Код:

[Error] Unit1.pas(40): Method identifier expected

[Janom]

Код:

procedure MyClick(Sender: TObject);
....
procedure TForm1.MyClick(Sender: TObject);
begin
form1.caption:='Смотри внимательно'
end;

procedure TForm1.FormCreate(Sender: TObject);
var b:Tbutton;
begin
b:=TButton.Create(Self);
b.Parent:=self;
b.OnClick:=MyClick;
end;

[Страдалецъ]

Код:

 b.OnClick := TBitBtn.onClick;

Сие есть ересь.
Вместо TBitBtn.onClick тут должно быть имя процедуры которое собственно и обрабатывает событие. Вот таким макаром:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage('Жмякнули!')
end;

procedure TForm1.FormCreate(Sender: TObject);
Var
  MyButton: TButton;
begin
 MyButton := TButton.Create(Self);
 MyButton.Parent := Self;
 MyButton.Left := 100;
 MyButton.Top := 100;
 MyButton.Width := 100;
 MyButton.Height := 50;
 MyButton.Caption := 'Жмякни меня!';
 MyButton.OnClick := Button1Click;
end;

[Мишка-90]

Janom, спасибо большое. помогли

[DGJ]

помогите пожалуйста, вроде сделал как у вас написано, но
[Error] aWave.dpr(139): Undeclared identifier: 'MyClick'

Код:

var
form1:tform;
z:integer;
Button1: TButton;
ColorDialog1: TColorDialog;
type
  TForm1 = class(TForm)
    Button1: TButton;
    ColorDialog1: TColorDialog;
    Edit1: TEdit;
  procedure MyClick(Sender: TObject);
end;

..................................................................................

procedure TForm1.MyClick(Sender: TObject);
begin
showmessage('1');
end;

procedure TAIMP2Visual.DisplayClick(X: Integer; Y: Integer); stdcall;
begin
Form1:= TForm.Create(Application);
 Form1.Caption:= 'Íîâîå ñîîáùåíèå';
 form1.Show;
 form1.Height:=200;
 form1.Width:=400;
 form1.Top:=10;
 form1.Left:=10;
 button1:=TButton.Create (form1);
        button1.Caption := 'button1';
        button1.Top     := 100;
        button1.Left    := 100;
        button1.Width   := 80;
        button1.Height  := 25;
        button1.Parent  := form1;
        button1.OnClick := MyClick;
end;