知识库

var
  i, t, l     : Integer;
begin
  btnDemo.Enabled := False;
  t := Self.Top;
  l := Self.Left;

  for i := 0 to 20 do
  begin

    case (i mod 4) of
    0:
      begin
        Self.Top  := t + 2;
        Self.Left := l + 2;
      end;
    1:
      begin
        Self.Top  := t + 2;
        Self.Left := l - 2;
      end;
    2:
      begin
        Self.Top  := t - 2;
        Self.Left := l - 2;
      end;
    3:
      begin
        Self.Top  := t - 2;
        Self.Left := l + 2;
      end;
    end;
    Application.ProcessMessages;

    //Sleep(50);
    SleepEx(50, True);
  end;
  Self.Top  := t;
  Self.Left := l;

  btnDemo.Enabled := True;

Tags: Delphi 窗口抖动

This entry was posted on 星期五, 八月 20th, 2010 at 11:15 上午 and is filed under 代码片断. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.