自定义procedure问题 请问我想再窗口中自定义procedure应该在哪里定义,要注意那些方面最好是有文档或例子 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 private procedure aaa;.....procedure TForm1.aaa;beginend; type TForm1 = class(TForm) Button1: TButton; procedure showmsg123(str:string); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure Tform1.showmsg123(str:string);beginshowmessage(str);end;procedure TForm1.Button1Click(Sender: TObject);beginshowmsg123('你现在明白了吗?');end; daynumber :=MonthDays(Year,Month);错在哪里? fastreport 中双列如何横向出数据? 如何获取LAN中服务器的系统时间? 如何判断ado的连接状态 oracle字段类型char(1000),在dbgrid中显示不了,对应字段的列全都显示 (memo),有没有解决良策??? 打印的问题 PCHAR 如何实现程序更新?(讨论,有新意者就给分) 有关dll调显示窗口的问题(高分等待) 怎样判断日期字段为空?(ADO/ACCESS) 一个查询(对你来说很简单) 在线等你!!! 关于DLL问题???
procedure aaa;.....
procedure TForm1.aaa;
begin
end;
TForm1 = class(TForm)
Button1: TButton;
procedure showmsg123(str:string);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure Tform1.showmsg123(str:string);
begin
showmessage(str);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
showmsg123('你现在明白了吗?');
end;