站長最近寫的聊天程式有一個功能就是當討論室的TForm最小化且有訊息來時,會有一段提醒的音樂,但我希望也能順帶將TForm還原(或是最大化),一直不得其法? 試過: Form1.windowstate:=wsMaximized; 或是 Form1.SetFocus; 都不行 可能要用WinApi? 謝謝各位指導! ～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

我會用

  form1.WindowState := wsNormal;
  form1.BringToFront;

可以試試 Scroll之問題, 是須要Invalidate, 只是時機問題, 我會再試試.

Scroll之問題主要須在AfterScroll之後Invalidate, 由於ListView無此Event, 故只好攔截Scroll之message 另加一unit如下

...
type
  TListView=class(ComCtrls.TListView)
    procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
    procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
  end;    implementation
procedure TListView.WMHScroll(var Message: TWMHScroll);
begin
  inherited;
  invalidate;
end;    procedure TListView.WMVScroll(var Message: TWMVScroll);
begin
  inherited;
  invalidate;
end;

所有用到ListView之unit應於ComCtrl之後uses 此unit 如此可解決問題, 但由於繪兩次, 畫面會稍微閃動.

引言: 我會用

  form1.WindowState := wsNormal;
  form1.BringToFront;

可以試試

謝謝ccchen兄的解答,我試過真的可以, 但有一演生的問題, Form經過BringToFront之後就無法由User自行最小化了! 請問該如何處理! 謝謝指導! ～～～Delphi K.Top討論區站長～～～

引言: Scroll之問題主要須在AfterScroll之後Invalidate, 由於ListView無此Event, 故只好攔截Scroll之message 另加一unit如下

...
type
  TListView=class(ComCtrls.TListView)
    procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
    procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
  end;    implementation
procedure TListView.WMHScroll(var Message: TWMHScroll);
begin
  inherited;
  invalidate;
end;    procedure TListView.WMVScroll(var Message: TWMVScroll);
begin
  inherited;
  invalidate;
end;

所有用到ListView之unit應於ComCtrl之後uses 此unit 如此可解決問題, 但由於繪兩次, 畫面會稍微閃動.

非常感謝ccchen兄的回覆,照您說的方式以可以解決的! 剩下閃動的問題是否有解呢? PC ANY Where v 1.0 也有用到ListView也有背景圖也一樣會閃動, 但我在想有沒有辦法讓原TListView的Scroll的自動Draw關掉? 謝謝指導! ～～～Delphi K.Top討論區站長～～～

應該用 SendMessage(application.Handle, WM_SYSCOMMAND,SC_RESTORE,0); [說明] 抱歉, 我總是忘了我們在談TaskBar, 因我通常都是處理MDI, bringtofront很理想 Delphi永遠有一看不見的Window--"Application", 以符合Miscrosoft window之要求, 當在TaskBar上時, click或任何SYSCOMMAND均是送給此Window, 而不是原來Active之Window, 故模擬此動作應如上

引言: 應該用 SendMessage(application.Handle, WM_SYSCOMMAND,SC_RESTORE,0); [說明] 抱歉, 我總是忘了我們在談TaskBar, 因我通常都是處理MDI, bringtofront很理想 Delphi永遠有一看不見的Window--"Application", 以符合Miscrosoft window之要求, 當在TaskBar上時, click或任何SYSCOMMAND均是送給此Window, 而不是原來Active之Window, 故模擬此動作應如上

謝謝已完全解決!ccchen兄真沒話說! ～～～Delphi K.Top討論區站長～～～