delphi 回车代替tab中怎么改tmditab控件

来源：蜘蛛抓取(WebSpider) 时间：2017-01-24 13:34 标签： delphi tab键
如何将DLL文件附加到主程序中的一个控件TabSheet1中成为一部分
就像一个程序中有多个功能，但是这个是分离的，必须加载那个DLL
文件后，TabSheet1中才能有相应的功能：
主程序main.exe&有控件RzPageControl1，内有TabSheet1－－TabSheet6
窗体库文件STUDGLS.dll嵌入一个TabSheet1显示，选用TabSheet1项再调用
STUDGLS.dll并能完成相关独立的基本操作》》》》》》》》》》
回复讨论(解决方案)
最好能提供一些相关的代码》》》》》》》》》》》》》
运行该dll，显示其中的窗体，取得它的句柄
把它的parent设置为此tabsheet，大小、位置正好充满
运行该dll，显示其中的窗体，取得它的句柄
把它的parent设置为此tabsheet，大小、位置正好充满
看不明白呀》》》》》》》》》》》》》》》》》》》
取得DLL中窗体的句柄，然后用SetParent来把TabSheet设为父窗体。
取得DLL中窗体的句柄，然后用SetParent来把TabSheet设为父窗体。
如何得到，请问代码如何写》》》》》》》》》》》》》》
楼主，这个问题我也研究了数月，最终还是没搞定，我以前直接把form做在dll中做窗口是可以，现在在做一个项目，想把frame或form放在dll中，调用到Tabsheet，一直有报错，查询资料无数，最终还是绝望了，现在做bpl解决了，如果楼主获得答案了记得通知一声，万分感谢,.
我把别的exe的form（无论是不是delphi写的）拉到自己exe里的panel里都可以啊
DLL的输出函数里创建窗体，并把窗体的parent值付为tabsheet就可以啦
主调用部分---------
&&Windows,&Messages,&SysUtils,&Variants,&Classes,&Graphics,&Controls,&Forms,
&&Dialogs,&StdCtrls,&ExtC
&&TForm1&=&class(TForm)
&&&&btn1:&TB
&&&&Panel1:&TP
&&&&procedure&btn1Click(Sender:&TObject);
&&&&{&Private&declarations&}
&&&&{&Public&declarations&}
&&Form1:&TForm1;
&&procedure&synapp(app:THandle);external&'mydll.dll';
&&function&showform(app:THandle):TFexternal&'mydll.dll';
implementation
{$R&*.dfm}
procedure&TForm1.btn1Click(Sender:&TObject);
&&tmpform:T
&&synapp(Application.Handle);
&&tmpform:=showform(Panel1.Handle);
DLL部分----------------
{&Important&note&about&DLL&memory&management:&ShareMem&must&be&the
&&first&unit&in&your&library's&USES&clause&AND&your&project's&(select
&&Project-View&Source)&USES&clause&if&your&DLL&exports&any&procedures&or
&&functions&that&pass&strings&as&parameters&or&function&results.&This
&&applies&to&all&strings&passed&to&and&from&your&DLL--even&those&that
&&are&nested&in&records&and&classes.&ShareMem&is&the&interface&unit&to
&&the&BORLNDMM.DLL&shared&memory&manager,&which&must&be&deployed&along
&&with&your&DLL.&To&avoid&using&BORLNDMM.DLL,&pass&string&information
&&using&PChar&or&ShortString&parameters.&}
&&SysUtils,
&&Classes,
&&Unit1&in&'Unit1.pas'&{Form1};
{$R&*.res}
synapp,&&&&&&&//输出的函数
DLL里窗体部份-----------------也就是输出函数的实现
unit&Unit1;
&&Windows,&Messages,&SysUtils,&Variants,&Classes,&Graphics,&Controls,&Forms,
&&Dialogs,StdC
&&TForm1&=&class(TForm)
&&&&{&Private&declarations&}
&&&&{&Public&declarations&}
&&Form1:&TForm1;
&&procedure&synapp(app:THandle);
&&function&showform(app:THandle):TF
implementation
{$R&*.dfm}
procedure&synapp(app:THandle);
&&Application.Handle:=
function&showform(app:THandle):TF
&&Form1:=TForm1.Create(Application);
&&Form1.ParentWindow&:=&
&&Form1.Height:=100;
&&Form1.Width&:=100;
//&&Form1.Align&:=alC
&&Result:=Form1;
刚才想发一下代码，发不成功，只DLL的输出函数里，传一个参数（TabSheet），在DLL创建窗体时，把窗体的parent付值(TabSheet)就可以啦
我把别的exe的form（无论是不是delphi写的）拉到自己exe里的panel里都可以啊
请你发一些DEMO程序到我的邮箱中谢谢
楼主，这个问题我也研究了数月，最终还是没搞定，我以前直接把form做在dll中做窗口是可以，现在在做一个项目，想把frame或form放在dll中，调用到Tabsheet，一直有报错，查询资料无数，最终还是绝望了，现在做bpl解决了，如果楼主获得答案了记得通知一声，万分感谢,.
你好,我想问一下,要是用BPL如何实现,这个BPL是如何编写,能否也提供一些相关资料给我谢谢
请你发一些DEMO程序到我的邮箱中谢谢
刚才想发一下代码，发不成功，只DLL的输出函数里，传一个参数（TabSheet），在DLL创建窗体时，把窗体的parent付值(TabSheet)就可以啦
还请多多赐教,
请你发一些DEMO程序到我的邮箱中谢谢Delphi XE TabControl使用 - 推酷
Delphi XE TabControl使用
tabcontrol1 GestureManager1 各tab页添加一些控件
二、属性设置
tabcontrol1: GestureManage选GestureManager1, Gestures.Standard设置手势，这里只用了左滑和右滑，
三、代码：
函数：设置活动页面及过度效果，看帮助吧，呵呵！
tabControl1.SetActiveTabWithTransition(TabItem2,TTabTransition.None,TTabTransitionDirection.Normal)
procedure TForm3.TabControl1Gesture(Sender: TO
const EventInfo: TGestureEventI var Handled: Boolean);
case EventInfo.GestureID of
if TabControl1.ActiveTab=TabItem1 then
TabControl1.SetActiveTabWithTransition(TabItem2,TTabTransition.None,TTabTransitionDirection.Normal)
else if TabControl1.ActiveTab=TabItem2 then
TabControl1.SetActiveTabWithTransition(TabItem3,TTabTransition.None,TTabTransitionDirection.Normal)
else if TabControl1.ActiveTab=TabItem3 then
TabControl1.SetActiveTabWithTransition(TabItem4,TTabTransition.None,TTabTransitionDirection.Normal);
if TabControl1.ActiveTab=TabItem2 then
TabControl1.SetActiveTabWithTransition(TabItem1,TTabTransition.None,TTabTransitionDirection.Normal)
else if TabControl1.ActiveTab=TabItem3 then
TabControl1.SetActiveTabWithTransition(TabItem2,TTabTransition.None,TTabTransitionDirection.Normal)
else if TabControl1.ActiveTab=TabItem4 then
TabControl1.SetActiveTabWithTransition(TabItem3,TTabTransition.None,TTabTransitionDirection.Normal);
刚开始接触Delphi,学习书籍较少且讲解不细致，网上看了很多资料才有点心得，希与同道们相互学习。
已发表评论数()
请填写推刊名
描述不能大于100个字符!
权限设置： 公开
仅自己可见
正文不准确
标题不准确
排版有问题
主题不准确
没有分页内容
图片无法显示
视频无法显示
与原文不一致

我要回帖

更多关于 delphi tab键 的文章

 

随机推荐