Memo组件：为何循环执行SendMessage(Memo->Handle ,EM_SCROLL,SB_LINEDOWN,0)时文本只上移一行就不在自动上

H

hawk2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-19

• #1

Memo组件：为何循环执行SendMessage(Memo->Handle ,EM_SCROLL,SB_LINEDOWN,0)时文本只上移一行就不在自动上移 (50分)<br />向Memo组件中动态输入文本过程中，为使文本自动上移，循环执行SendMessage(Memo->Handle ,EM_SCROLL,SB_LINEDOWN,0)和Application->ProcessMessages();
但程序运行结果却是：文本只上移一行就不在自动上移文本。请问如何实现连续上移？

 

R

realLearning

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-19

• #2

我只有delphi你改成c就可以。
procedure TForm1.Button1Click(Sender: TObject);
begin
while SendMessage(Memo1.Handle ,EM_SCROLL,SB_LINEDOWN,0)>0do
begin
sleep(10);//稍等片刻。
Application.ProcessMessages();
end;
end;

 

小

小笨象

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-20

• #3

SendMessage要等一下的。因为它返回才继续执行的。
试试postmessage.

 

H

hawk2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-20

• #4

多人接受答案了。