怎样定全局可用的结构?
解决方案 »
- 主窗体调用dll窗体,dll窗体上button的CM_MOUSEENTER,CM_MOUSELEAVE消息收不到,怎么回事?
- 哪位大侠能够告诉我类型TImageIndex的属性编辑器是在哪个单元中定义的?
- 关于使用ADO原生对象的使用方法????
- 请问哪里有Delphi5.0下载。英文版的。谢谢,如果有教程的下载网址更好。
- 救命,如何屏蔽pdf保存功能
- 数据库是Access,如何以'日期/时间'类型字段的值作为条件来删除记录呢?
- 如何改进应用系统的速度-delphi和oracle的应用程序?
- 数据库的连接该用bde还是ado?
- delphi的热键列表,谁能提供?
- 新人上路,请大虾扶持! (sqL)
- 一个删除记录的难题,请高手来拿分
- 关于还原数据库备份文件的问题。
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables;type
TForm1 = class(TForm)
Database1: TDatabase;
DataSource1: TDataSource;
Query1: TQuery;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; //在这定义一个结构就是全局的。
var
Form1: TForm1;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('');
end;end.