/|\АРТЕМ.NET.RU /|\ - Портал для программистов и не только: Delphi Visual Basic BORLAND С++ PERL PHP HTML

Автоматический выбор произвольный пункт PopupMenu

Прислал Aleksey msalex@tomcat.ru:

{Так можно заставить сразу, после появления на экране
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;

[000115]