procedure TfrmMDIMain.ToolButton2Click(Sender: TObject); 
var
frmOUT:TfrmInStorage;
begin
OP:='OUT'; //出库操作
TI:='出库';
if not assigned(frmOUT) then
begin
frmOUT:=TfrmInStorage.Create(self);
end;
frmOUT.Show;
end;

为什么以上操作不能跳出子窗体?

我是想入库,出库,退货,都使用 TfrmInStorage这个窗体,只是操作的资料库不同而已.
但在MDI主窗口调用时,怎么让每个功能只显示一次该子窗体?
比如只显示入库窗体时,只能显示一次,而此时如果再打开出库,一样也可以显示出库窗体,但只能显示一次.

------
交流.學習

不是很明,因为frmOUT:TfrmInStorage;而如果你入库再来一个frmIN:TfrmInStorage;那个，frmOUT跟frmIN是两回事的。
代码如下：
procedure TfrmMDIMain.ToolButton2Click(Sender: TObject);
var
frmOUT:TfrmInStorage;
begin
OP:='OUT'; //出库操作
TI:='出库';
if not assigned(frmOUT) then
begin
frmOUT:=TfrmInStorage.Create(self);
end;
frmOUT.Show;
end;
procedure TfrmMDIMain.ToolButton3Click(Sender: TObject);
var
frmIN:TfrmInStorage;
begin
OP:='IN'; //出库操作
TI:='出库';
if not assigned(frmIN) then
begin
frmIN:=TfrmInStorage.Create(self);
end;
frmIN.Show;
end;
那么，frmOUT跟frmIN是两回事的.那么你分别点ToolButton2,就会出显frmOUT,点ToolButton2,就会出显frmIN，因为frmOUT、frmIN是继承于TfrmInStorage的两个不同的窗体.这正常啊。

有點看不懂你的問題,但是我猜大概是這樣
1.frmOUT變數你設成Local變數了,這樣就無法用來判斷視窗有沒有重複開啟
2. frmOUT:=TfrmInStorage.Create(self);
我不知道對不對,我都寫application.createform(TfrminStorage,frmOUT);
3.子Form要記得設MIDChild才會顯示
4.MDI child Create之後就會顯示,不用再寫show了

===================引 用 tomc 文 章===================
procedure TfrmMDIMain.ToolButton2Click(Sender: TObject);
var
frmOUT:TfrmInStorage;
begin
OP:='OUT'; //出库操作
TI:='出库';
if not assigned(frmOUT) then
begin
frmOUT:=TfrmInStorage.Create(self);
end;
frmOUT.Show;
end;

为什么以上操作不能跳出子窗体?

我是想入库,出库,退货,都使用 TfrmInStorage这个窗体,只是操作的资料库不同而已.
但在MDI主窗口调用时,怎么让每个功能只显示一次该子窗体?
比如只显示入库窗体时,只能显示一次,而此时如果再打开出库,一样也可以显示出库窗体,但只能显示一次.