如何允许用户布置界面控件(85分)

C

cz

Unregistered / Unconfirmed
GUEST, unregistred user!
我想做一个应用程序,允许用户以类似Delphi IDE环境中在Form上放置一个
组件,组件四周有8个改变大小的黑色handle,并随时用鼠标移动、改变大小等
操作。
 
Search for "TLine" Huizhang has had a component like this.
 
查一下Delphi by delphi或者Handel
 
有没有现成的组件或函数库?
 
有现成的组件,你可和我联系(xk@t500.com)
 
有现成的组件,你可和我联系(xk@t500.com)
 
这类现成组件基本都是收费的,自己写的话,可以去找一下DDHCODE,里面有例子(Resizable Button)。

procedure tbutton.MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
inherited mousedown(button,shift,x,y);
if button=mbleft then
begin
ReleaseCapture;
(self as TWinControl).Perform (
wm_SysCommand, sc_DragMove, 0);
end;
end;

这是移动控件的代码。Resize的代码很长。
 
我有一个控件,专干这个事情,有source code.
 
我们(不光是我)写了这样的控件,不过要改一下Delphi的源代码。
 
我的邮件地址为 czzhu@202.119.200.10。
xk,DNChe,tqz,lhz,如何得到你们所说的控件?
能否告知实现方法,我的本意是想对Delphi现有VCL组件进行扩展。
 
我好象是在深度历险上down的.有个控件叫做TStretchHandle,
可以对控件进行移动和改变大小的操作,和IDE中的操作方式一样.
我曾经用这个控件写了个SGML语言的可视化编辑工具,与BCB的IDE
差不多,当然没有那么多控件种类了.
另外有个控件可以编辑整个FORM的所有控件的所有属性,只是安装了,
并没有使用过.
还有一个控件,专门将FORM存储到DFM文件,我觉得没用,就没有保存了.
有很多控件都可以保存FORM及上面的控件的属性,如RXLIB就有.

我可以给您发e-mail,告诉我您要哪个控件,发到哪.
 
To lhz:
>我曾经用这个控件写了个SGML语言的可视化编辑工具
你真厉害!这样岂不是可以做HTML的可视化编辑工具了?
你有SGML的详细资料吗?我下一个项目可能需要定义一个类似HTML的标记语言,
并且需要可视化的编辑。
如果你有兴趣参加的话就最好了!
 
To tqz:
您说得非常正确!
事实上我们已经实现了这样一个系统,包括可视化编辑和HTTP浏览.

SGML是非常头疼的东西![ISO的,都是这个风格:(].

 
佩服佩服!
你是完全实现了HTML4吗?还是一个子集或者自定义的语法?
我的项目可能需要实现一个子集,加上一点自定义的东西
你能告诉我有多少工作量吗?让我有点概念。
我已做过类似Delphi 中的Form Editor;有HTMLViewer源码(但是它能识别的
格式有限)
 
To tqz:
当然不可能是HTML4了:)我只是用SGML自己定义了一个非常简单的
标记语言.由于项目的验收逼得太紧,只有1个月时间,不可能做得那
么复杂:(我用一个星期编写了框架,一个星期完成程序,调试了一个
星期,最后测试了一个星期:)所以说,这个也不是很难的.如果有好用
的HTMLParser(好象网上有很多),做HTML的也不会很难.
BTW:有别的事情请发e-mail到<a href="mailto:lhz@kali.com.cn">
这里</a>,不然别人要不高兴了:)
 
我有一个很好的这方面组件,特别好用,有兴趣可<a href="mailto:cims@nudt.edu.cn">与我联系</a>。
 
为何只有lhz对我的EMail有回应,其他留EMail地址的人没收到我的信吗?
 
BTW:我又发现了一些这样的控件,但没试过,要不要?
(很大的,XXX KB).
 
to lhz:
给我试试,大小无碍。(Email:czzhu@202.119.200.10)
 
to lhz:
Can you send me the component you say.(with source).
thx.
li.zhao@263.net
 

Similar threads

S
回复
0
查看
958
SUNSTONE的Delphi笔记
S
S
回复
0
查看
779
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
742
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
顶部