谁会做浮动面版

Question

哪位高手做浮动面版啊，请告诉我，谢谢

Answer 1

第一步：新建工程project1,主窗体form1，快捷菜单窗体form2,form2设置为动态生成，form2d的formstyle设置为fsStayOnTop。
第二步：在form1上放下timer组件timer1,的form1的oncreate以及timer1的ontimer中写如下代码：procedure TForm1.FormCreate(Sender: TObject);
begin
    Form2 := TForm2.Create(nil);
    Form2.Show;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
   form2.Left := Form1.Left;
   Form2.Top := Form1.Top;
end;编译程序，就可以了。。

Answer 2

form2设置为动态生成怎么设置啊

Answer 3

delphi菜单中project->options中的form页，把位于左边auto create form中的form2放到左边去，就是available中去

Answer 4

你的form2，就是快捷菜单界面，比你的form1要小一些，至于小多少，你自己看着办。