VPF::listbox как нажать программно onkeyup

Pcrepair

Дата 22.11.2022, 10:06 (ссылка)

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

Загрузка ...

Бывалый

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

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

Добрый день.

есть в наличии

Код


procedure TMain.Button1Click(Sender: TObject);
begin
  Button2.Click; // тут все по букварю, работает. это просто пример того что нужно
  
  // тут нужно вызвать обработчик ListBox1KeyUp со всеми его потрохами 
  ListBox1.SetFocus;  // тут норм
  ListBox1.ItemIndex := 0;  // тут норм
  ListBox1.OnClick(nil);  // а тут выскакивает исключение вместо того чтобы(как в букваре)? вызвать обработчик
end;

procedure TMain.Button2Click(Sender: TObject);
begin
  //
end;

procedure TMain.ListBox1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key = VK_RETURN) then
  begin
    //
  end;
end;

исключение тут:

Код


unit Vcl.Controls;
procedure TControl.Click;
begin
  { Call OnClick if assigned and not equal to associated action's OnExecute.
    If associated action's OnExecute assigned then call it, otherwise, call
    OnClick. }
  if Assigned(FOnClick) and (Action <> nil) and not DelegatesEqual(@FOnClick, @Action.OnExecute) then
    FOnClick(Self)
  else if not (csDesigning in ComponentState) and (ActionLink <> nil) then
    ActionLink.Execute(Self)
  else if Assigned(FOnClick) then
    FOnClick(Self);
end;

вопрос: как имитировать ListBox1KeyUp?

Заранее спасибо за ответы по ЗАДАННЫМ вопросам

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

Сборник рабочего кода Процедур и Функций DelPhi http://validcoderepo.narod.ru/

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