我把一些常用的函数过程写到了一个form中,然后其他的窗体退过继承这个窗体进行使用。可不是可以只继承pas?不要form? 其中下面这个自定义过程,是用来创建显示窗体的,但我发现我在其它窗体 这样 JsShowFormModal(TFMain,Famin); 进行显示时,两个窗体间会无法传递变量,但可能正常显示。请高手指点要怎么解决。procedure TFJL.JsShowFormModal(b:TFormClass;s:TForm); //创建Modal窗体
begin
Application.CreateForm(b,s);
s.ShowModal;
s.Free;
end;
begin
Application.CreateForm(b,s);
s.ShowModal;
s.Free;
end;
解决方案 »
- fastReport函数
- 为什么我建的两个多线程,只能进一个?谢谢!!!在线等待,急!!!!
- 请高手赐教Delphi 开发基于局域网Oracle8.0.5的最好方案(ADO?BDE?ODAC?DBExpress?)
- ADOQUERY控件使用,急!!!!!!!!!!
- 急!!!关于键盘HOOK的问题!!
- 在ADOQuery中设置Lookup字段,Append出错
- 外部程序窗口的控制问题,在线等待....
- 请问各位大哥,如何使一个动态生成的按钮鼠标单击事件与一个自定义过程函数捆绑?
- 为什么Delphi的很多控件中都需要唯一关键字?
- 关于3-TIER的问题,有谁在做3层的东东呀??
- 对于BPL包加载的窗体如何传递值
- delphi ADOBE
unit XXX_Share_u;interfaceuses Classes, dbClient, Controls, ComCtrls, bsSkinMenus, Menus;const
...
type
...function EasyWay(const aShowInfo: string; aFocusControl: TWinControl = nil): boolean;
function SaveMessageAndExit(var Variables: string; const Value: string): boolean;//共享数据
var
icds_sblroot: TClientDataSet; //标志字典数据implementationuses SysUtils, Variants;var
iCount: Integer;function EasyWay(const aShowInfo: string; aFocusControl: TWinControl = nil): boolean;
begin
...
end;function SaveMessageAndExit(var Variables: string; const Value: string): boolean;
begin
result := true;
Variables := Value;
end;...initialization
...
finalization
...
end.
在PAS中继承就完了呗。
可以。