我在使用delphi中的screen对象时,不需要通过初始化TScreen对象就可以直接引用其属性,如
Form1.Width := Screen.Width;
可是我自己写的类如
type
TMyClass = class
function value: String;
end;
我要使用TMyClass中的方法时就要显式的进行初始化工作,如
procedure TForm1.FormShow(Sender: TObject);
var
myclass: TMyClass;
str: String;
begin
myclass := TMyClass.Create;
str := myclass.value;
myclass.Free;
...
end;怎么样写才能够不显式的进行Create工作而直接使用类的方法或者属性呢?就如果JAVA中的Static类一样?
Form1.Width := Screen.Width;
可是我自己写的类如
type
TMyClass = class
function value: String;
end;
我要使用TMyClass中的方法时就要显式的进行初始化工作,如
procedure TForm1.FormShow(Sender: TObject);
var
myclass: TMyClass;
str: String;
begin
myclass := TMyClass.Create;
str := myclass.value;
myclass.Free;
...
end;怎么样写才能够不显式的进行Create工作而直接使用类的方法或者属性呢?就如果JAVA中的Static类一样?
解决方案 »
- 窗体的设置
- 动态创建窗口后如何释放内存? 程序运行关闭后进程还是没有停止?
- 假设我不知道inttostr()这个函数!
- 哪位大侠有Installshield操作说明(中文)寄给小弟 ???
- RichEdit怎样实现多次Undo
- 弱智问题,关于对象存储
- 请帮看一看,语法那里有错误!!!!
- 如何将一个做好的ado连接的单机数据库,改为c/s模式呢?谢谢!!
- 请教主从表结构的定义。(没有几分了,呜呜。。。。)
- 关于OLE控件注册的问题,必有重谢!
- 我写了个程序,并做了安装程序,可是我不知道哪些文件是必须的,比如DLL文件什么的,因为有的机器上不能用!怎么办?
- 菜菜问题---自己建了一个access数据表,怎么引入---刚刚接触数据库,请各位不吝赐教
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
tmytest=class
private
public
procedure test;
end;
var
Form1: TForm1;implementation{$R *.dfm}
procedure tmytest.test ;
begin
showmessage('a');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
dd:tmytest;
begin
dd.test ;
end;end.