畫面會有干擾紋 , 可能是沒有跟畫面同步的問題 .. 我的timer的intvalue = 50 畫面會有雜訊 我想可能是 沒有跟畫面同步... 是嗎? 能夠指導一下 如何改善嗎 .... 以下是我的程式碼 void __fastcall TForm1::Timer1Timer(TObject *Sender) { HDC ScreenDC =GetDC(0); POINT pt; GetCursorPos(&pt); Label1->Caption = "X:" AnsiString(pt.x) " Y:" AnsiString(pt.y) ; StretchBlt(Image1->Canvas->Handle,0,0,80,80, ScreenDC,pt.x,pt.y,40,40,SRCCOPY); Image1->Refresh() ; ReleaseDC(0,ScreenDC); } weme

------
weme

補充 這是一個類似 螢幕放大鏡 的程式 麻煩各位高手 指導 .... weme

------
weme

weme 您好：    不妨將 Timer 的 Interval 設小一點，例如 50，這樣子操作起來的視覺感受可能會較為平滑些，另外可以在 Form 的 OnCreate 事件中設定 Image1 底層物件的 DoubleBuffered 為 true，應該能改善顯示的效果，如果您的 Image1 是直接放在 Form 上面，那麼您可以這麼設定：

Form1->DoubleBuffered = true;

另外；您在 Timer 中重覆不斷的宣告與清除 HDC 似乎也沒有必要，我將您的程式改寫如下，執行起來的效果還算可以，您參考看看：

HDC ScreenDC;
POINT pt;    void __fastcall TForm1::FormCreate(TObject *Sender)
{
    ScreenDC = GetDC(0);
    Form1->DoubleBuffered = true;
}    void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    ReleaseDC(0,ScreenDC);
}    void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    GetCursorPos(&pt);
    Label1->Caption = "X:"   AnsiString(pt.x)   " Y:"   AnsiString(pt.y);
    StretchBlt(Image1->Canvas->Handle, 0, 0, 80, 80,
                ScreenDC, pt.x, pt.y, 40, 40, SRCCOPY);
    Image1->Refresh();
}

7 天天敲鍵盤 v 時時按滑鼠 8