社区
Delphi
帖子详情
哪有这样控件:在Edit后面有个省略号,并有且省略号之持事件!
madyak
2003-01-11 10:54:54
哪有这样控件:在Edit后面有个省略号,并有且省略号之持事件!
...全文
52
19
打赏
收藏
哪有这样控件:在Edit后面有个省略号,并有且省略号之持事件!
哪有这样控件:在Edit后面有个省略号,并有且省略号之持事件!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
19 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
fancier
2003-01-13
打赏
举报
回复
To madyak(下岗的程序员):
SkinEngine控件包中,SeSkinEditButton1就是你所要的
ButtonCaption 属性可以设为 "..." --"在Edit后面有个省略号"
OnButtonClick 事件,可以响应你所要的--"省略号之持事件"
你试试看.
Nizvoo
2003-01-12
打赏
举报
回复
Edt + SpeedButton 就行(Flat)
xiaoqlj
2003-01-12
打赏
举报
回复
自己写一个比较方便的。
lwk_hlj
2003-01-12
打赏
举报
回复
用dev 的组件吧,全有,JVC的也有
liuns
2003-01-12
打赏
举报
回复
up
Kingron
2003-01-12
打赏
举报
回复
是Lmd控件包,我弄错了。
unit ButtonEdit;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls;
type
TButtonEdit = class(TEdit)
private
FButton: TButton;
procedure SetButtonClick(const Value: TNotifyEvent);
function GetButtonClick: TNotifyEvent;
{ Private declarations }
protected
{ Protected declarations }
procedure SetEditRect;
procedure AdjustSize;override;
procedure WMSize(var Message: TWMSize); message WM_SIZE;
procedure CreateWnd; override;
procedure CreateParams(var Params: TCreateParams); override;
public
{ Public declarations }
constructor Create(AOwner:TComponent);override;
destructor Destroy;override;
published
property OnButtonClick:TNotifyEvent read GetButtonClick write SetButtonClick;
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TButtonEdit]);
end;
{ TButtonEdit }
procedure TButtonEdit.SetButtonClick(const Value: TNotifyEvent);
begin
FButton.OnClick := Value;
end;
constructor TButtonEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Width :=Width + 20;
FButton :=TButton.Create(Self);
with FButton do
begin
Caption:='...';
Width :=20;
Align :=alRight;
Parent := Self;
end;
end;
destructor TButtonEdit.Destroy;
begin
FButton.Free;
inherited;
end;
function TButtonEdit.GetButtonClick: TNotifyEvent;
begin
Result :=FButton.OnClick;
end;
procedure TButtonEdit.AdjustSize;
begin
inherited;
SetEditRect;
FButton.Align := alRight;
end;
procedure TButtonEdit.SetEditRect;
var
r: TRect;
begin
inherited;
r:=Rect(0,0, ClientWidth-FButton.Width, ClientHeight);
SendMessage(Handle, EM_SETRECTNP, 0, LongInt(@r));
// SendMessage(Handle, EM_GETRECT, 0, LongInt(@r));
end;
procedure TButtonEdit.WMSize(var Message: TWMSize);
begin
AdjustSize;
end;
procedure TButtonEdit.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or WS_CLIPCHILDREN;
end;
procedure TButtonEdit.CreateWnd;
begin
inherited CreateWnd;
AdjustSize;
SetEditRect;
end;
end.
fancier
2003-01-11
打赏
举报
回复
SkinEngine控件包
lizongqi
2003-01-11
打赏
举报
回复
自己写一个就行了:)
madyak
2003-01-11
打赏
举报
回复
还是自己写一个吧!
madyak
2003-01-11
打赏
举报
回复
在edit后放一个按钮,不好看!
madyak
2003-01-11
打赏
举报
回复
amd控件包哪有?
esu
2003-01-11
打赏
举报
回复
在edit后放一个按钮好了
要控件,可以把edit和button写在一起
Kingron
2003-01-11
打赏
举报
回复
自己写一个,或者用Amd控件包
madyak
2003-01-11
打赏
举报
回复
算了吧说了这么多,也没觖决问题,还是自已写吧!
xiaoxiaobai
2003-01-11
打赏
举报
回复
严重同意以下两人的意见。
=======================
回复人: ffossil(吴下阿蒙) ( ) 信誉:100
这样也有这么多三角???
回复人: My_first(小@_@小) ( ) 信誉:110
放个按钮,加个图片。就搞定。
不要老是想到用控件。 控件包占用的资源太大.
GnuSoft
2003-01-11
打赏
举报
回复
自己写一个,很简单的。
My_first
2003-01-11
打赏
举报
回复
放个按钮,加个图片。就搞定。
不要老是想到用控件。 控件包占用的资源太大.
madyak
2003-01-11
打赏
举报
回复
自己写个,有点麻烦,SkinEngine包中没找到符合要求的!
找不到Amd控件包!
谁知道?马上给分!
Kingron大侠,送给我一个吧!
madyak@163.com
ffossil
2003-01-11
打赏
举报
回复
这样也有这么多三角???
VC++常用功能实例
55、串太长时如何在其末尾显示一个
省略号
60 56、如何快速地格式化一个CString对象 61 57、为什么即使调用EnableMenuItem菜单项后,菜单项还处于禁止状态 61 58、如何给系统菜单添加一个菜单项 61 59、如何确定顶层...
VC++常用的共用函数100多页
55、串太长时如何在其末尾显示一个
省略号
60 56、如何快速地格式化一个CString对象 61 57、为什么即使调用EnableMenuItem菜单项后,菜单项还处于禁止状态 61 58、如何给系统菜单添加一个菜单项 61 59、如何确定顶层...
Visual C++ 编程资源大全(
控件
窗体)
1,cstatic_filespec.zip 静态文本中用
省略号
显示长文件名(3KB)<END><br>2,cstatic_filespec_demo.zip 静态文本中用
省略号
显示长文件名的演示程序(14KB)<END><br>3,newlabel_app.zip CNewLabel--高级的...
VISUAL C++实效编程280例
7.5 实例145:在长文本末端显示
省略号
7.6 实例146:设置文本的对齐方式 7.7 实例147:设置背景模式 7.8 实例148:绘制图形 7.9 实例149:画笔的使用 7.10 实例150:字体的使用 7.11 实例151:实现“橡皮筋”功能 ...
vc++ 应用源码包_6
创建一个按钮,并在上面显示图标。 jpeglib_demo.zip jpeglib_src.zip 利用Delphi的代码在VC中显示JPG图片,不使用动态连接库。 Mail_Report.zip 一个邮件报告程序。 SrcFirstProg.zip 解释了最基本的MFC程序...
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章