遍历主菜单及子菜单:
运行结果如下
代码如下
procedure TForm1.Button1Click(Sender: TObject);
var
i,k:integer;
begin
memo1.Lines .clear;
for i:=0 to mainmenu1.items.count-1 do
...……
Delphi/Pascalviewsourceprint?1functionTimeZoneBias:Integer; var TZI:Windows.TTimeZoneInformation;//infoabouttimezone begin ifWindows.GetTimeZoneInformation(TZI)=Windows.TIME_ZO……