Архив форумов ЦИТФорума

[Eveline]

Помогите, плиз. Такая проблема: создаю в Delphi динамически имэйджи, и никак не могу пристроить к ним событие. Инфу в нете уже искала. Пытаюсь сделать так, как нашла, а оно не работает. Пишу так:

Images:array[1..40] of TImage;
procedure ImagesMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
//процедура
end;
Images[k]:=TImage.Create(Form1);
Images[k].OnMouseMove:=ImagesMouseMove;

Компилятор пишет мне ошибку:
Incompatible types: 'method pointer and regular procedure'.

Пыталась сделать с чуть более простым вариантом:

MyEdit: TEdit;
procedure EditChange(Sender: TObject);
begin
//процедура
end;
MyEdit := TEdit.Create(Form1);
MyEdit.OnChange := EditChange;

Скажите мне, что я делаю неправильно?

[Mytilus Galloprovincialis]

Подобные обработчики событий могут быть только методами какого-либо класса (например, формы).

Вместо procedure EditChange(Sender: TObject);
надо procedure TForm1.EditChange(Sender: TObject);

[Eveline]

Спасибо за совет. Попробовала. Но так как EditChange не принадлежит к Form1, то в строке

[Mytilus Galloprovincialis]

Мысли, безусловно, есть.
Ну, во-первых, метод EditChange должен быть не только реализован, но и объявлен где-нить в классе (например, в блоке protected).

[Eveline]

Спасибо огромное! Получилось! Всё работает как надо!

[Mytilus Galloprovincialis]

Не за что! Обращайтесь еще.
Удачи!