各位前輩好： 請問Panel是否能夠像Form一樣，開啟後其它物件便無法點選的功能。 謝謝！

Hi marklue,    將該 Panel disable 即可

procedure TForm1.Button1Click(Sender: TObject);
begin
  Panel1.Enabled := False;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

Fishman 您好： 謝謝您的回覆 對不起，我意思上表達不清楚， 我是指除了開的的此PANEL外，其餘物件皆不能點選 只有此PANEL上的元件還可點選 謝謝您！

你好 應該是可以!!但是比較麻煩,如果要這樣做的話,就必須要一個一個元件去控制設定除了panel之外的所有可視元件Enabled的屬性全部設定成False;這樣應該就可以了吧!!如果這個panel是mainform所開出來的form裡面的元件,那要記得,mainform上面的mainmenu的Enabled的屬性也要設定成False!!試試看吧!! Pillar Wang

------
Pillar Wang

Hi marklue,    

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  for i := 0 to self.ControlCount - 1 do
    begin
      if self.Controls[i].Parent <> Panel1 then
        self.Controls[i].Enabled := False;
    end;
  Panel1.Enabled := true;
  self.Enabled := true;
end;    procedure TForm1.Button2Click(Sender: TObject);
var
  i : integer;
begin
  for i := 0 to self.ControlCount - 1 do
    begin
        self.Controls[i].Enabled := True;
    end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

你好 Fishman大大的寫法是很簡便的寫法喔!!可以參考使用,但是有一個地方要注意,就是除了判斷parnat是panel1之外,還要判斷如果是panel1的parant也不可以設定成False喔,不然panel1也會跟著不能處理喔!! Pillar Wang

------
Pillar Wang

Fishman、pillar62前輩好： 謝謝您們熱心解題 感恩！