procedure TForm1.FormCreate(Sender: TObject); begin hotkey:=globaladdatom(pchar('UserDefineHotKey'))-$C000; if not RegisterHotKey(Handle,hotkey,0,VK_F11) then application.Terminate;end; procedure TForm1.HotKeyDown(var Msg: Tmessage); begin form1.Show; end;没有问题啊,你在form1.show后面用form1.repaint;看看
procedure TForm1.FormCreate(Sender: TObject);
begin
hotkey:=globaladdatom(pchar('UserDefineHotKey'))-$C000;
if not RegisterHotKey(Handle,hotkey,0,VK_F11) then application.Terminate;end;
procedure TForm1.HotKeyDown(var Msg: Tmessage);
begin
form1.Show;
end;没有问题啊,你在form1.show后面用form1.repaint;看看