首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

delphi中DrawLeftimageText画字Tlmage切换的时候会有残影,该怎么处理

2012-06-05 
delphi中DrawLeftimageText画字Tlmage切换的时候会有残影procedure TFrmMain.DrawLeftimageTextvari:Inte

delphi中DrawLeftimageText画字Tlmage切换的时候会有残影
procedure TFrmMain.DrawLeftimageText;
var
  i:Integer;
begin
  for i:= 0 to panel3.ControlCount-1 do
  begin
  if panel3.Controls[i] is TImage then
  begin
  if panel3.Controls[i].Name='liji_meeting' then
  TImage(panel3.Controls[i]).Canvas.TextOut(55,15, pchar('立即召开'));
  if panel3.Controls[i].Name='yuyue_meeting' then
  TImage(panel3.Controls[i]).Canvas.TextOut(55,15,'预约会议');
  if panel3.Controls[i].Name='btn_GroupConference' then
  TImage(panel3.Controls[i]).Canvas.TextOut(55,15,'群组会议');
  if panel3.Controls[i].Name='tongxunlu' then
  TImage(panel3.Controls[i]).Canvas.TextOut(55,15,'通讯录');
  if panel3.Controls[i].Name='btn_Recording' then
  TImage(panel3.Controls[i]).Canvas.TextOut(55,15,'录音管理');
   




我用这个画字到image上,每个image有个点击事件,手标点击是是一张图片,移上去是一张图片,移开又一张图片显示。
但是现在出现一种情况当手标点击某个image时移到另一个image的时候,这些画上去的字:'立即召开''预约会议''群组会议'
出现了残影,字显示的那小块是白色。我自己的想法应该是刷新问题,在切换的时候才会,不知道是什么问题,向大家讨教。





[解决办法]
试下在画前使用Canvas.Brush.Style:=bsClear;

热点排行