Кликнуть по Tlabel из процедуры..?

[kta87]

Пытаюсь научить программу кликать по Tlabel по нажатию на TButton вот так

 var
   PNum: Integer;
...
(FindComponent('label' + IntToStr(PNum + 1)) as TLabel).OnClick;

конечно же не компилируется, подскажите как правильно записать такое действие?

[Valio]

Что значит "не копилируется"? Приведи код ошибки.

[3D Hunter]

Пример:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1Click(TLabel(FindComponent('label'+IntToStr(1))));
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
  ShowMessage('ok');
end;

[kta87]

Not enough actual parameters
При клике мышкой по Tlabel переменная PNum содержит номер компонента, а при нажатии на TButton нужно кликнуть на Tlabel с номером PNum + 1

[Valio]

Сообщение от kta87

Not enough actual parameters
При клике мышкой по Tlabel переменная PNum содержит номер компонента, а при нажатии на TButton нужно кликнуть на Tlabel с номером PNum + 1

Потому что тут .OnClick чтото должно быть переданно в качестве параметра.

[3D Hunter]

Если для каждого label метод OnClick уникальный, то так:

var
  LEventProc:TNotifyEvent;
begin
  LEventProc:=TLabel(FindComponent('label'+IntToStr(PNum+1))).OnClick;
  LEventProc(TLabel(FindComponent('label'+IntToStr(PNum+1))));
end;

[kta87]

3D Hunter, спасибо, так и есть! Вот только отзыв не могу тебе добавить, пишет что прежде чем тебе добавить нужно кому нить еще добавить

[3D Hunter]

ну как-нибудь попробуй, проплюсуй меня)))

[Stilet]

Не могу согласиться с вышеизложенным примером и предлагаю свой:

var
  l:TLabel;
begin
  l:=TLabel(FindComponent('label'+IntToStr(PNum+1)));
  if l<>nil then l.OnClick(l);
end;

Так надежнее

[3D Hunter]

Тогда уже и событие OnClick проверять на назначенность. А вообще да, согласен. Проверки никто не отменял. Я привел лишь идею, а шлифовать - дело ТС.