窗体中放了两个panel,中间放了一个splitter,点击splitter的时候上面的panel会隐藏起来,现在想在窗体onshow的时候直接把上面的panel隐藏起来,怎么操作?
干吗非要用splite的点击的, 用panel2的双机就行了呵
(两个panel、一个splitter,panel1和splitter的align属性都设为altop,
panel2的align设为alclient,splitter1的cursor设为crVSplit)
//双击panel2 翻转panel1 显示隐藏状态
procedure TForm1.Panel2DblClick(Sender: TObject);
begin
Panel1.Visible := not Panel1.Visible;
end;
(效果图如果看不到请下载附件)
onshow隐藏panel1代码
procedure TForm1.FormShow(Sender: TObject);
begin
Panel1.Visible := False;
end;