我用了一个Memo,一个Checkbox,想用Checkbox控制Memo让它可以在“允许自动换行”与“禁止自动换行”两个状态间切换,但为什么没有效果呢?
代码如下:
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
begin
memo1.WordWrap:=true;
end
else
begin
memo1.WordWrap:=false;
end;
end;
代码如下:
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
begin
memo1.WordWrap:=true;
end
else
begin
memo1.WordWrap:=false;
end;
end;
begin
memo1.WordWrap:=not CheckBox1.Checked;
end;
给分吧
这个问题一直不知道怎么回事,我用的是98,一直没有效果
begin
if checkbox1.Checked then
begin
memo1.WordWrap:=true;
end
else
begin
memo1.WordWrap:=false;
end;
end;
同时在运行前把MEMO1的WORDWRAP的属性设置为:FALSE
这是在2000里 DELPHI6.0版里可以运行
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
CheckBox1: TCheckBox;
Memo1: TMemo;
procedure FormShow(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormShow(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('太精典了!.txt');
end;procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
begin
memo1.WordWrap:=true;
end
else
begin
memo1.WordWrap:=false;
end;
end;end.
Memo1.WordWrap:=false ;procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
Memo1.WordWrap:=false else
Memo1.WordWrap:=true;
end;