各位bcb弟兄,能否把下列的pas源程序表达为bcb,100分

xiaoyu 2003-08-02 09:55:56
unit uasglink;

interface

uses
windows,classes,controls,stdctrls,graphics,forms,sysutils,
moneyedit,advedit,clisted,advgrid,colorcombo;

type
TAdvEditEditLink = class(TEditLink)
private
fEdit:TAdvEdit;
protected
procedure EditExit(Sender:TObject);
public
procedure CreateEditor(aParent:TWinControl); override;
procedure DestroyEditor; override;
function GetEditorValue:string; override;
procedure SetEditorValue(s:string); override;
function GetEditControl:TWinControl; override;
end;

TColorComboEditLink = class(TEditLink)
private
fEdit:TColorComboBox;
protected
procedure EditExit(Sender:TObject);
public
procedure CreateEditor(aParent:TWinControl); override;
procedure DestroyEditor; override;
procedure SetRect(r:trect); override;
function GetEditorValue:string; override;
procedure SetEditorValue(s:string); override;
function GetEditControl:TWinControl; override;
end;

TMemoEditLink = class(TEditLink)
private
fEdit:TMemo;
protected
procedure EditExit(Sender:TObject);
public
procedure CreateEditor(aParent:TWinControl); override;
procedure DestroyEditor; override;
function GetEditControl:TWinControl; override;
function GetEditorValue:string; override;
procedure SetEditorValue(s:string); override;
end;

TMoneyEditLink = class(TEditLink)
private
fEdit:TMoneyEdit;
protected
procedure EditExit(Sender:TObject);
public
procedure CreateEditor(aParent:TWinControl); override;
procedure DestroyEditor; override;
function GetEditorValue:string; override;
procedure SetEditorValue(s:string); override;
function GetEditControl:TWinControl; override;
end;

TCheckEditLink = class(TEditLink)
private
fEdit:TCheckListEdit;
protected
procedure EditExit(sender:TObject);
public
procedure CreateEditor(aParent:TWinCo
...全文
30 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
柯本 2003-08-02
  • 打赏
  • 举报
回复
TEditLink是第三方的构件吧!
xiaoyu 2003-08-02
  • 打赏
  • 举报
回复
在bcb的头文件中如何表述,
谢谢
xiaoyu 2003-08-02
  • 打赏
  • 举报
回复
如下:
unit uasglink;

interface

uses
windows,classes,controls,stdctrls,graphics,forms,sysutils,
moneyedit,advedit,clisted,advgrid,colorcombo;

type
TAdvEditEditLink = class(TEditLink)
private
fEdit:TAdvEdit;
protected
procedure EditExit(Sender:TObject);
public
procedure CreateEditor(aParent:TWinControl); override;
procedure DestroyEditor; override;
function GetEditorValue:string; override;
procedure SetEditorValue(s:string); override;
function GetEditControl:TWinControl; override;
end;
。。。。
procedure TAdvEditEditLink.CreateEditor(aParent:TWinControl);
begin
fEdit:=TAdvEdit.Create(Grid);
fEdit.Color:=clYellow;
fEdit.ShowModified:=true;
fEdit.ModifiedColor:=clRed;
fEdit.BorderStyle := bsNone;
fEdit.OnKeydown:= EditKeyDown;
fEdit.OnExit := EditExit;
fEdit.Width:=0;
fEdit.Height:=0;
fEdit.Parent:=aParent;
WantKeyLeftRight:=true;
WantKeyHomeEnd:=true;
end;

procedure TAdvEditEditLink.DestroyEditor;
begin
if assigned(fEdit) then fEdit.Free;
fEdit:=nil;
end;

function TAdvEditEditLink.GetEditorValue:string;
begin
result:=fEdit.Text;
end;

procedure TAdvEditEditLink.EditExit(sender: TObject);
begin
HideEditor;
end;

function TAdvEditEditLink.GetEditControl: TWinControl;
begin
result:=fEdit;
end;

procedure TAdvEditEditLink.SetEditorValue(s: string);
begin
fEdit.Text:=s;
end;
xiaoyu 2003-08-02
  • 打赏
  • 举报
回复
我精简一下

13,822

社区成员

发帖
与我相关
我的任务
社区描述
C++ Builder相关内容讨论区
社区管理员
  • 基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧