VPF::объявление метода в процессе выполнения программы

slvax

Дата 19.12.2009, 19:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 24.11.2009

Репутация: нет
Всего: нет

Во время выполнения программы через массив объявляю объекты 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;

VanHelsing

Дата 19.12.2009, 20:42 (ссылка)

(нет голосов)

Загрузка ...

ХОЧУ ВСЕ ЗНАТЬ!!!

Награды: 1

Профиль
Группа: Участник
Сообщений: 288
Регистрация: 3.1.2008
Где: Екатеринбург

Репутация: нет
Всего: 6

Одна процедура описана в другой - возможно в этом и есть ошибка.

--------------------

Мой блог.
Specialist

slvax

Дата 19.12.2009, 20:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 24.11.2009

Репутация: нет
Всего: нет

Спасибо, разобрался

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »