Программно выбрать TMenuItem

[Shouldercannon]

Доброго времени суток!
Как программно выбрать указанный Item в PopupMenu?

[beegl]

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

Как программно выбрать указанный Item в PopupMenu?

примерно так:

procedure TForm1.Button1Click(Sender: TObject);
var
  I, N: Integer;
begin
  N := 3; {номер по порядку}
  for I := 1 to N do
    PostMessage(Self.Handle, WM_KeyDown, VK_DOWN, 0);
end;

[Аватар]

http://www.delphikingdom.com/asp/vie...?catalogid=800