我是想先得到鼠标所在的当前窗体的句柄后，震动当前窗体，得到句柄和振动窗体代码都写好了  ，就不知道改怎么把句柄转窗体
[code delphi]
var
AWnd: hWnd;i:Integer;
begin
AWnd := GetForegroundWindow;
for I := 0 to 4 do begin
Self.Top := Self.Top - 3; Sleep(40);
Self.Left := Self.Left - 3; Sleep(40);
Self.Top := Self.Top 3; Sleep(40);
Self.Left := Self.Left 3; Sleep(40);
end;
[/code]

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

編輯記錄

在SetWindowPos傳入您的句柄能解決您的問題？

------
Love life,Love ktop.

回大大啊，不行啊，这个函数不能实现相关的用途，我查了下网络，好像有人说用FindControl函数，但是我用不大来。有知道的大大吗？

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

"句柄" 是什麼?

如果要搖視窗就用你寫的那個內容就可以阿

procedure ShockWin(Sender: TForm);
var i:Integer;
begin
for I := 0 to 4 do
begin
Sender.Top := Sender.Top - 3; Sleep(40);
Sender.Left := Sender.Left - 3; Sleep(40);
Sender.Top := Sender.Top 3; Sleep(40);
Sender.Left := Sender.Left 3; Sleep(40);
end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
ShockWin(Form1);
end;

------
額有朝天骨,眼中有靈光

我覺得搖別人的視窗不是一件好事....太沒禮貌了, 但...不是做不到

別人的視窗當然不能用 delphi 的top, left 來控制,要透過windows api
[code delphi]
var hand:HWND;
r:TRect;
i:integer;
begin
hand := GetForegroundWindow;
GetWindowRect(hand , r );
for i := 0 to 4 do
begin
MoveWindow(hand,r.Left,r.Top -3,r.Right-r.Left,r.Bottom-r.Top,true ); sleep(40);
MoveWindow(hand,r.Left-3,r.Top ,r.Right-r.Left,r.Bottom-r.Top,true ); sleep(40);
MoveWindow(hand,r.Left,r.Top 3,r.Right-r.Left,r.Bottom-r.Top,true ); sleep(40);
MoveWindow(hand,r.Left 3,r.Top ,r.Right-r.Left,r.Bottom-r.Top,true ); sleep(40);
end;
[/code]

------
額有朝天骨,眼中有靈光

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

編輯記錄