继承TEdit,重载CreateParams,修改Param即可。procedure TEdit_Ex.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style:=Params.Style or ES_RIGHT;
end;
begin
inherited;
Params.Style:=Params.Style or ES_RIGHT;
end;
解决方案 »
- opendialog控件有问题?
- 如何停止shockwaveflash的播放?另外。。。
- delphi初學者提問
- sos!!!!急急急!!!!!!!!!!!!!!!!!!!!!!!
- 急!!!我怎样在报表浏览之前刷新table1里的数据啊?
- ***烦闷啦,用Delphi6编译程序时,它就自动退关闭!!,请问高手怎么办啊?***
- ***怎样画一个角出来??一有答案,马上给分。
- 50分小问题!:如何通过自定义事件的参数传回必要的值???
- 问个ado的可行性问题
- 请问TDockToolBar是什么类啊!
- 如何实现将文件拖放到Button1和Memo1上后得到其文件名
- 有谁知道李维的个人网站或者是由他主持的bbs?50分
begin
inherited;
Params.Style:=Params.Style or ES_RIGHT;
end;
begin
inherited;
Params.Style:=Params.Style or ES_RIGHT;
end;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables;type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; TCEdit =Class(TCustomEdit)
private public
procedure CreateParams(var Params: TCreateParams); override;
end;var
Form1: TForm1;implementation{$R *.dfm}
procedure TCEdit.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style:=Params.Style or ES_RIGHT;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with TCEdit.Create(nil) do
begin
left :=50;
top :=50;
width := 100;
name :='aaaa';
parent :=form1;
end;
end;
end.