Re: как задать TControl->OnClic
От: maslan Россия  
Дата: 07.09.06 09:19
Оценка:
Здравствуйте, Idler, Вы писали:

I>
I>TImage *MyImage;
I>void __fastcall MyImageClick(TObject *Sender){;}
I>...
I>MyImage = new TImage(this);
I>MyImage->OnClick = MyImageClick;    //Error!!!!!!!
I>


I>какой прототип должен быть у MyImageClick?


Такой же и должен остаться.
void __fastcall Button1Click(TObject *Sender);
Я на сях не пишу...В дельфи такой код пашет вовсю:
    ...
      procedure MyBtnClick(Sender: TObject);
    ...
var p:TButton;
...
p:=TButton.Create(Form1);
p.Parent:=Form1;
p.Name:='Btn';
p.Caption:='Кнопка № раз';
p.Left:=20;
p.Top:=10;
// и .т.д
p.OnClick:=MyBtnClick;
p.Show
... << RSDN@Home 1.1.3 beta 2 >>
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.