如题
解决方案 »
- Service 中使用ADO 不能正常工作............???????????????????????
- 有关与数据库连接的问题!
- Delphi中shockwaveflash控件的如何使用?
- id字段的管理问题
- 请高手指教,如何实现。当点击一个按钮时,创建一个新的窗体?先谢了。
- 如何在程序中,将printersetup 选中的打印机设置为操作系统的缺省打印机?
- MainMenu控件怎么不能用在ActiveXForm上?
- 如何清空treeview中的所有树
- 有.dcu, 但没有.pas怎么办?delphi就是不让通过啊!
- StringGrid有否单击某一列的特定一个单元格的事件?
- 无法捕捉错误,希望出错后关闭程序,该怎么做?
- 菜鸟的几个问题?
unit Main;interfaceuses
Windows, Messages, SysUtils,Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, JvExControls, JvComponent, JvNavigationPane,
JvGradientHeaderPanel, JvSpeedButton;type
TFrm_Main = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label3: TLabel;
Button3: TJvSpeedButton;
Button5: TJvSpeedButton;
Button6: TJvSpeedButton;
Button7: TJvSpeedButton;
JvGradientHeaderPanel1: TJvGradientHeaderPanel;
JvNavPanelHeader1: TJvNavPanelHeader;
JvSpeedButton1: TJvSpeedButton;
JvGradientHeaderPanel3: TJvGradientHeaderPanel;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Frm_Main: TFrm_Main;implementationuses Client_unit;{$R *.dfm}procedure TFrm_Main.btn1Click(Sender: TObject);
begin
CreateFrm(TFrm_client,Frm_client);
try
Frm_client.ShowModal;
finally
FreeAndNil(Frm_client);
end;end;end.
Application.CreateForm(TFrm_client, Frm_client);
或者
Frm_client:= TFrm_client.Create(self);