MEMO的选择问题(100分)

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-06-20

• #1

看一段代码
var
i:integer;
begin
for i:=0 to checklistbox1.Items.Count-1do
begin
Application.ProcessMessages;
sleep(30);
checklistbox1.ItemIndex:=i ;
end;
end;
这段代码运行后,有一个动画效果
我想把checklistbox1换成MEMO或者EDITRICH却不行?
怎么做,怎么改?

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-06-20

• #2

???
???
???

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-06-20

• #3

procedure TForm1.Button2Click(Sender: TObject);
var
i,j,k: Integer;
begin
Memo1.SetFocus;
j := 0;
for i := 0 to Memo1.Lines.Count - 1do
begin
Application.ProcessMessages;
Sleep(30);
Memo1.SelStart := j;
k := Length(Memo1.Lines);
Memo1.SelLength := k;
Inc(j,k + 2);
end;
end;

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-06-26

• #4

接受答案了.

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-06-26

• #5

看了你的代码,我自己搞定自己想要的东东
var
p: Integer;
begin
p := Pos(memo1.lines.Strings[SpinEdit1.Value-1], memo1.Lines.Text);
Memo1.SelStart := p-1;
memo1.SelLength := Length(memo1.lines.Strings[SpinEdit1.Value-1])+2;
Memo1.SetFocus;
end;