|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
обработка события динамической кнопки
всем здрасти.
помогите мне пожалуйста, я создаю динамически кнопку Код:
B : TBitBtn; Код:
procedure TForm1.FormCreate(Sender: TObject); begin B := TBitBtn.Create(self); В.Parent := self; end; как мне обработать событие кнопки? все идеи которые были в голове ошибочные.. |
#2
|
|||
|
|||
Код:
B.OnClick:=Button1.OnClick; |
#3
|
|||
|
|||
Код:
B := TBitBtn.Create(self); b.Parent := self; b.OnClick := TBitBtn.onClick; ошибка возникает Код:
[Error] Unit1.pas(40): Method identifier expected |
#4
|
|||
|
|||
Код:
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; Последний раз редактировалось Janom, 14.06.2011 в 17:17. |
#5
|
||||
|
||||
Код:
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; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#6
|
|||
|
|||
Janom, спасибо большое. помогли
|
#7
|
|||
|
|||
помогите пожалуйста, вроде сделал как у вас написано, но
[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; |