请问各位大虾本人需要向,要显示的窗体中传递参数,使得窗体根据不同的参数显示不同的内容,是重载该窗体的FormCreate函数还是FormShow函数,或者是其它什么函数?希望能够提供例程。(急)
解决方案 »
- 急求 CxGrid 的问题 ,在线等!!(等一天了,是没有人会吗?还是分给的不够!)
- 求助::如何写delphi皮肤控件的问题
- 问一个菜鸟问题~请指教,如何打开一个指定的文件~
- 我的程序中用到了indy控件,是在主界面中用TIdAntiFreeze还是在线程中用?
- 关于mdi窗体
- 如何获取一个目录里的所有子目录名称???
- 我想在数据库存储一个多行文本, 返回的时候要这个文本原封不动的返会
- 打印机测试问题
- 初级问题:一个动态连接库,那位好心人教我下用delphi如何调用
- win95上发布ado访问access97的程序,须另装什么程序?
- 如何退化!!!! 如何返回到windows3.2中开发系统??
- 怎样取得本机的真实IP地址(不要只取出127.0.0.1)?
type
TForm2 = class(TForm)
...
public
class function CreateForm2(const AMyParam: string): TForm;
end;
...
class function TForm2.CreateForm2(const AMyParam: string): TForm;
begin
Result := nil;
if AMyParam = 'Create' then
Result := TForm2.Create(Application);
end;调用的时候:
Form2 := TForm2.CreateForm2('Create');或使用ParamStr和ParamCount函数。其中ParamStr(0)返回的是当前程序名,如C:\TEST\MYPROG.EXE,ParamStr(1)返回第一个参数,以此类推;ParamCount则是参数个数。示例如下: var I: Word; Y: Integer; begin Y := 10; for I := 1 to ParamCount do begin Canvas.TextOut(5, Y, ParamStr(I)); Y := Y + Canvas.TextHeight(ParamStr(I)) + 5; end; end;
begin
Caption := 'aaa';
Edit1.Text := 'bbb';
AProperty := 123; //一个自定义的属性
try
ShowModal;
finally
Free;
end;
end;