我在圖形上加載內容(jpg)，但不想在圖片上畫東西(也不讓的)，所以在上面加了一層，即或者TImage或者TPaintBox控制元件，放在TImage有圖片的上面。這樣，下面的圖片內容會看見，并在上面畫東西不影響下面的。但是，這樣的結果，移動時下面的圖片動的很快。不在上面加一層的話，就很好。為什么？
如下面的：
只有一個TImage時的移動：其中：b_move, i_x, i_y是在TForm1中加的私有變數。
//處理滑鼠移動的事件
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
b_move:=true;
i_X:=X;
i_Y:=Y;
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
moveFlag:=False;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if b_move then
begin
Image1.Left:=Image1.Left+(X-i_X);
Image1.Top:=Image1.Top+(Y-i_Y);
end;
end;
如加了層后，把層上的三個事件的函式取與Image1的一樣的。
uj5u.com熱心網友回復：
我已經解決了。uj5u.com熱心網友回復：
恭喜LZ自己解決了
uj5u.com熱心網友回復：
擼過接分
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/133607.html
標籤：語言基礎/算法/系統設計
上一篇：indy中的TIdMultiPartFormDataStream提交中文亂碼怎么解決
下一篇：獲得系統字體問題。