public
procedure WMResc(var msg:TMessage);message WM_Resc;
procedure WMResc(var msg:TMessage);
begin
....
end;procedure TForm1.Button1Click(Sender:TObject);
begin
PostMessage(Handle,WM_Resc,0,0);
end;
procedure WMResc(var msg:TMessage);message WM_Resc;
procedure WMResc(var msg:TMessage);
begin
....
end;procedure TForm1.Button1Click(Sender:TObject);
begin
PostMessage(Handle,WM_Resc,0,0);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货