Question

怎么用delphi编写一个关闭QQ窗体的工具

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
if form2.Visible then
form2.Hide
else
form2.Show;
end;