哪有这样控件：在Edit后面有个省略号，并有且省略号之持事件!

2003-01-11 10:54:54 112 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C++ Builder 初学问与答（二） 2.文本输入组件11）问：如果要实现文本输入，在C++Builder中应该怎么办？答：C++Builder常用文本输入组件来实现，常用的文本输入组件有Edit、MaskEdit 、Memo和RichEdit。他们的主要不同在于Edit和MaskEdit用于输入单行文本，而Memo和RichEdit可以输入多行文本。此外Label组件也可用来进行文本显示。Edit和MaskEdit是一个阅读详情

...全文

Windows Phone 7开发启蒙：Panorama、Pivot与IsolatedStorage实战指南移动应用开发中的导航架构与本地存储是跨平台通用的核心能力。Panorama和Pivot代表了早期触控设备上基于手势的沉浸式导航范式，其设计逻辑深刻影响了现代Flutter TabBar、React Native ScrollView嵌套及iOS SwiftUI TabView等实现；IsolatedStorage则体现了沙盒化、强隔离的轻量级持久化思想，与今日的SharedPreferences、UserDefaults、Zustand持久化插件一脉相承。理解这三者背后的约束驱动设计（constraint- 阅读详情

madyak

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

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

打赏
举报

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

打赏
举报

这样也有这么多三角？？？

哪有这样控件：在Edit后面有个省略号，并有且省略号之持事件!

相关推荐