Текущий архив: 2007.04.22;
Скачать: CL | DM;
Вниз
Присвоить событию свою процедуру Найти похожие ветки
← →
SerJaNT © (2007-04-03 04:45) [0]Пишу:
...
public
procedure Sunduk(Sender: TObject);
...
procedure TForm1.Sunduk(Sender: TObject);
begin
// code
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
image1.OnClick := Sunduk(Image1);
end;
но ругает " Incompatible types: "TNotifyEvent" and "procedure, untyped pointer or untyped parameter""
Как правильно присвоить событию свою процедуру?
← →
ЮЮ © (2007-04-03 07:27) [1]image1.OnClick := Sunduk;
а Image1 "лови" в параметре: procedure TForm1.Sunduk(Sender: TObject);
← →
SerJaNT © (2007-04-03 07:49) [2]Спасибо. всё разобрался.
Оказывается, есть разница между Sunduk() и Sunduk;
Страницы: 1 вся ветка
Текущий архив: 2007.04.22;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.051 c
