我在一form上放一memo,想在formshow的时候执行下列代码清空MEMO里的原始内容,怎么代码执行后,memo里的内容根本没被清空?
procedure TForm1.FormSHOW(Sender: TObject);
begin
MEMO1.Lines.Clear;
end;
procedure TForm1.FormSHOW(Sender: TObject);
begin
MEMO1.Lines.Clear;
end;
解决方案 »
- 默认窗口资源(最大化,最小化,还原,关闭)??
- 如何直接对USB读卡器进行读、写卡操作(无DLL)
- 昨天去一个软件公司面试题目, 虽然不难可是题量还是比较大. 看你们能做多少, 不能上机调试都是笔试的.
- 一段添加记录到数据库的代码,请大家帮我看看问题出在那了?{因小弟分散完,抱歉了!}
- RPC服务器不可用,可能是什么原因?
- fr_class.pas是什么东西?
- 如何控制打印一行记录后不走纸
- 一段产生水纹、火焰的VC特效源代码,谁能帮改成C++ Builder或Delphi源代码!!100分相送!!!
- sql查询语句中将Null值转为0呢.
- listview如何添加第三列第四列的内容
- 如何使edit输入法绑定英文???
- 请JetJack (喷气引擎) 帮忙。。。!!!
清空Memo用
----------------
Memo1.Clear;
就可以了Memo1.Lines.Clear
好象也可以
但是我不知道你是什么原因可能是代码没执行
毛 主 席
毛 主 席
毛 主 席
毛 主 席
MEMO1.visible :=True;
MEMO1.Clear;
MEMO1.visible :=False;
这是unit1
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:='';
end;procedure TForm1.Button2Click(Sender: TObject);
begin
form2.Show;
end;end.
这是unit2:
unit Unit2;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm2 = class(TForm)
Label1: TLabel;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;implementation
uses unit1;
{$R *.dfm}procedure TForm2.FormShow(Sender: TObject);
begin
memo1.lines.Clear;
end;procedure TForm2.Button1Click(Sender: TObject);
begin
close;
end;
end.
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:='';
end;procedure TForm1.Button2Click(Sender: TObject);
begin
form2.Show;
end;end.
这是unit2:
unit Unit2;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, unit1;//在这里引用type
TForm2 = class(TForm)
Label1: TLabel;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;implementation
//uses unit1;在我学习过的地方,因为UNIT1里已经在这里引用了UNIT2了,所以这里是不能引用的.需要在上边USES里引用才不会冲突
{$R *.dfm}procedure TForm2.FormShow(Sender: TObject);
begin
memo1.lines.Clear;
end;procedure TForm2.Button1Click(Sender: TObject);
begin
close;
end;
end.不知道这么改后能通过吗?希望我的知道的不是错误的,都这么互引好几年了,哈哈!