在写一个pas做控件时,我怎么定义写弹出一个未知的窗体?

didi0225

在写一个pas做控件时,我怎么定义写弹出一个平台的窗体?
Unit1上有个地方要调用unit2上的  ShowFrom2(TmpHandle);

Unit2上的
procedure ShowFrom2(AHandle: THandle);
begin
  TmpHandle := AHandle;
  Form2.Show;  //Form2想换成平台一窗体
end;

现在我想打包Unit1成一控件,请问怎么写上面那个ShowFrom2

didi0225

帮我看看怎么把unit1写成个控件pas

zfang

不是很明白楼主的意思。

didi0225

2楼的例子是按 Ctrl+B弹出窗体2 确认返回窗体2的数据到处于激活的窗体1或者窗体3的焦点所在的控件上

平台里不支持(var msg:TMessage); message WM_HOTKEY;
只能写成控件

关于ShowFrom2函数怎么调用 放到平台后 把平台里的一窗体来代替窗体2的

还有procedure TForm1.yhbhotkey(var msg:TMessage);  //定义热键

这个函数应该还能使用吧

能不能帮忙写个pas出来？

zfang

公司不让装delphi。
建议楼主这样子实现吧：你用delphi做一个 dll，然后dll中公布方法，用于平台调用，然后dll中 你实现你的逻辑。至于这个dll注册到平台，那你自己手写一个注册用的pas文件就可以。

didi0225

请问,我把全部代码写成个DLL后,要弄到平台怎么弄？
写个pas吧DLL注册,再打包成第三方写进平台还是怎么的弄?

zfang

写个注册用的pas，然后拿这个pas用平台的第三方控件导入工具(http://bbs.justep.com/forum.php?mod=viewthread&tid=9841 中的 x3importer.rar) 去生成一个reg.pas和一个dll，然后拿pas和reg.pas生成bpl，最终是 一个bpl和两个dll放到开发端目录或者服务端的client目录中进行部署