大家帮忙看看 ( 积分: 30 )

S

songjy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-08

• #1

procedure TForm1.BitBtn1Click(Sender: TObject);<br>var srect;<br>begin<br>s^.Left :=0;<br>s^.Top :=0;<br>s^.Right :=100;<br>s^.Bottom :=100;<br>InvalidateRect(panel1.Handle,s,false);<br>end;<br><br><br><br>在执行这个的时候总是报 access violction 错误?<br>是什么原因啊

 

S

songjy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-08

• #2

procedure TForm1.BitBtn1Click(Sender: TObject);<br>var srect;<br>begin<br>s^.Left :=0;<br>s^.Top :=0;<br>s^.Right :=100;<br>s^.Bottom :=100;<br>InvalidateRect(panel1.Handle,s,false);<br>end;<br><br><br><br>在执行这个的时候总是报 access violction 错误?<br>是什么原因啊

 

J

jlutt-sadan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-08

• #3

procedure TForm1.Button1Click(Sender: TObject);<br>var s:Trect;<br>begin<br>s.Left :=0;<br>s.Top :=0;<br>s.Right :=100;<br>s.Bottom :=100;<br>InvalidateRect(panel1.Handle,@s,false);<br>end;

 

在

在世寻欢

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-08

• #4

procedure TForm1.BitBtn1Click(Sender: TObject);<br>var srect;<br>begin<br>GetMem(s,SizeOf(TRect));<br>s^.Left :=0;<br>s^.Top :=0;<br>s^.Right :=100;<br>s^.Bottom :=100;<br>InvalidateRect(panel1.Handle,s,false);<br>end;

 

S

songjy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-09

• #5

谢谢