在 Panel1 上放 FileListBox1 和 ListBox1 , 在選擇別的 scr (螢幕保護程式) 時候, 結果每個螢幕保護程式都出現在 Panel2 , 請問該如何解決 ?
<textarea class="delphi" rows="10" cols="60" name="code"> unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl, ExtCtrls, Menus; type TForm1 = class(TForm) Panel1: TPanel; Panel2: TPanel; FileListBox1: TFileListBox; ListBox1: TListBox; procedure FormCreate(Sender: TObject); procedure FileListBox1DblClick(Sender: TObject); procedure FormHide(Sender: TObject); procedure Fresh1; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function EnumProc( h : HWND ;// handle of child window l : integer// application-defined value ): boolean;stdcall; var buf : array[0..255] of char; begin GetWindowText(h, buf, sizeof(buf)- 1); if iswindowvisible(h) then Form1.ListBox1.items.add(' ' strpas(buf) ' : ' inttostr(h)) else Form1.ListBox1.items.add('-' strpas(buf) ' : ' inttostr(h)); Result := true; end; procedure TForm1.Fresh1; begin ListBox1.Clear; // 失效 ??? Why ? enumChildwindows(Panel2.handle, TFNWndEnumProc(@enumproc), 0); Panel1.RePaint; // 失效 ??? Why ? end; procedure TForm1.FormCreate(Sender: TObject); var buf : array[0..256] of char; begin FileListBox1.Mask:='*.scr'; GetSystemDirectory(buf, sizeof(buf) - 1); FileListBox1.directory := strpas(buf); end; procedure TForm1.FileListBox1DblClick(Sender: TObject); begin WinExec(pchar(FileListBox1.FileName ' /p ' inttostr(Panel2.handle)), SW_Show); Fresh1; end; procedure TForm1.FormHide(Sender: TObject); var h : integer; s : string; begin if ListBox1.itemindex = -1 then exit; s := Listbox1.items[ListBox1.itemindex]; h := strtoint(copy(s, pos(':', s) 1, length(s))); ShowWindow(h, SW_HIDE); Fresh1; end; end. </textarea>

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！