Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 85 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.11.2022, 10:01   #1
Pcrepair
Форумчанин
 
Регистрация: 04.01.2011
Сообщений: 257
По умолчанию listbox как нажать программно onkeyup

Добрый день.

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

Код:
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?

Заранее спасибо за ответы по ЗАДАННЫМ вопросам
Pcrepair вне форума Ответить с цитированием
Старый 22.11.2022, 12:03   #2
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,457
По умолчанию

Цитата:
// тут нужно вызвать обработчик ListBox1KeyUp со всеми его потрохами
https://programmersforum.ru/showthread.php?t=337201
смысл и назначение любого обработчика вызов твоих процедур(методов)
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме 85 тыс рублей в месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
программно нажать на 192.168.32.2 beegl Общие вопросы Delphi 10 18.04.2015 23:32
Программно нажать ctrl + alt +del strbb Общие вопросы Delphi 2 16.01.2011 18:52
Нажать программно win+L AlexeiDelejov Win Api 4 06.06.2010 10:02
программно нажать кнопку Dotha Общие вопросы Delphi 1 25.02.2010 17:56
Программно нажать кнопку DeDoK Общие вопросы Delphi 2 04.05.2008 21:46