简单问题,拜托了 delphi 中 关于类 从定义到调用,给个简单例子 谢谢了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在Delphi中新建一个Application,生成的TForm1类从定义到调用就都有了 更多的内容可根据情况直接参考VCL源码,类的定义、实现和调用例子可谓璨若群星 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type //这个类可以放到其他单元 TMyClass = class private public procedure Show; end; TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}{ TMyClass }procedure TMyClass.Show;begin ShowMessage('ok');end;procedure TForm1.Button1Click(Sender: TObject);var my:TMyClass;begin my := TMyClass.Create; my.Show;end;end. 在调用字符串操作函数时 需要uses 吗 如果需要引 你们引什么啊 dll中函数如何调用dll中的资源文件 好吧,我承认我挫,BUTTON啊BITBTN啊这种按钮控件怎么没有BorderWidth属性的.. 微软要开始收钱了 高手,请教 rom 文件的打开方式! com组件的问题。 Delphi工程的路径是在哪里指定? 如何做出FlashGet那样的界面?用Splitter控件可否?? 高分寻求日期问题的解决。 StringGride 生成的表格能否用鼠标改变宽度,查看未显示出来的内容。 高手赐教:鼠标移到按钮上有hint属性显示,能不能让程序控制hint的显示 如何取本机所在网络的公网IP? 怎样判断一组值(两个变量),在一个范围内,具体看内容?
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
//这个类可以放到其他单元
TMyClass = class
private public
procedure Show;
end; TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}{ TMyClass }procedure TMyClass.Show;
begin
ShowMessage('ok');
end;procedure TForm1.Button1Click(Sender: TObject);
var
my:TMyClass;
begin
my := TMyClass.Create;
my.Show;
end;end.