Во время выполнения программы через массив объявляю объекты TEdit. При присвоении созданному объекту метода возникает ошибка
E2009 Incompatible types: 'method pointer and regular procedure'. Не могу разобраться в чем дело? Если кто сталкивался с такой проблемой - подскажите.
Вот сырец:
| Код |
private
{ Private declarations }
LabArray:array[1..15] of TEdit;
public
{ Public declarations }
end;
implementation
{$R *.dfm}
uses unit1;
procedure prMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
procedure TForm1.FormShow(Sender: TObject);
begin
fmKomPrd_Card.LabArray[i]:=TEdit.Create(fmKomPrd_Card);
fmKomPrd_Card.LabArray[i].AutoSize:=False;
fmKomPrd_Card.LabArray[i].Left:=tleft;
fmKomPrd_Card.LabArray[i].Height:=eHeight;
fmKomPrd_Card.LabArray[i].Top:=ttop;
fmKomPrd_Card.LabArray[i].Width:=eWidth;
fmKomPrd_Card.LabArray[i].Font.Style:=[fsBold];
fmKomPrd_Card.LabArray[i].OnMouseDown:=prMouseDown;//(Sender: TObject);
.
.
end;
end;
|
|