急呀，在线等待....

Question

用一个button控件,一个from2窗体.
怎么样实现像开始那样，按就弹出,谢谢

Answer 1

Form1.buttonKeyPress(sender : TObject);
begin
  Form2 := TForm2.Create(nil);
  //设置Form2与按钮的相对位置及大小  Form2.show;
end;Form1.keyPress(...);
begin
  if Form2 <> nil then
  begin 
    Form2.close;
    Form2.free;
  end;
end;

Answer 2

uses
  unit2;procedure TForm1.Button1Click(Sender: TObject);
var
  Frm : Tform2;
  Rct : TRect;
begin
  GetWindowRect(Button1.handle,Rct);
  Application.CreateForm(TForm2, Frm);
  if Frm <> nil then
  begin
    Frm.Left := Rct.Left;
    Frm.Top := Rct.Top - Frm.Height ;
    Frm.Show;
    Frm.SetFocus;
  end;end;// Form2 source
procedure TForm2.FormDeactivate(Sender: TObject);
begin
  close;
end;

Answer 3

to  hotzhu(非洲白脸) 在KeyPress不实现吧，但在onclick里,弹出不能关上