Delphi - база знаний


Как выделить кнопку в DBNavigator программно?


Как выделить кнопку в DBNavigator программно?





type TFake=class(TDBNavigator);

procedure TForm1.Button1Click(Sender: TObject);
begin
  TFake(DBNavigator1).buttons[nbNext].Perform(WM_RBUTTONDOWN,0,0);
  TFake(DBNavigator1).buttons[nbNext].Perform(WM_RBUTTONUP,0,0);
end;

Автор Vit
Взято с Vingrad.ru




Начало  Назад  Вперед