如何让单个edit控件禁止输入,但是又保持可用状态? 就是不要是灰的是白的要求不能改动父级控件的属性 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 maxlength 设置为0 不就OK了 完整示例代码如下,仅供参考unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Button2: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin edit1.ReadOnly :=true;end;procedure TForm1.Button1Click(Sender: TObject);begin edit1.Text:='这里的内容是通过按钮设置的';end;procedure TForm1.Button2Click(Sender: TObject);begin edit1.Clear;end;end. 帮忙看下错出在哪里? WebBrowser 问题 高手进来看看 主窗口最小化了,其他窗口也跟着最小化,这不是我想看到的,怎么解决? 怎样动态创建过程 怎么把在Memo控件中的输入的文字去出来 怎样在IE中显示,由delphi中的RichEdit写入数据库的BLOB数据? 显示DBGRID的标题. 急招Delphi程序员(杭州) 关于新建窗口的问题 free,terminate,hide,和close 将一个字段分为两个字段显示,Select into 的问题 VerticalGrid 的 header部分 为什么在 左边会有空白的地方 ??? 图
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.ReadOnly :=true;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:='这里的内容是通过按钮设置的';
end;procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
end;end.