procedure TF_Main.dxBarButton125Click(Sender: TObject);
var
i: Integer;
begin
if (F_Main.ActiveMDIChild.ClassName = 'TfrmSelectAPForm') then
begin
for i := Low(PanelCaption) to High(PanelCaption) do
begin //在frmSelectAPForm中定義了一個常量數組,用于存儲功能鍵標題和序號
if PanelCaption[i] = '連接鍵設定' then
if frmSelectAPForm <> nil then
begin //如果功能設定窗體已經創建,那麼就不必重複創建,直接切換到
連接鍵設定即可!
frmSelectAPForm.pagSelect.ActivePageIndex := i;
break;
end;
end;
end
else
begin
CallCloseForm(Sender);
ReEnter(doneEvent, 0); p_sSelectAPFormCaption := '連接鍵設定';
p_iSelectAPFormActivePageID := 8;
OpenMDIForm(Sender, TfrmSelectAPForm, '', '', True, 1);
end;
var
i: Integer;
begin
if (F_Main.ActiveMDIChild.ClassName = 'TfrmSelectAPForm') then
begin
for i := Low(PanelCaption) to High(PanelCaption) do
begin //在frmSelectAPForm中定義了一個常量數組,用于存儲功能鍵標題和序號
if PanelCaption[i] = '連接鍵設定' then
if frmSelectAPForm <> nil then
begin //如果功能設定窗體已經創建,那麼就不必重複創建,直接切換到
連接鍵設定即可!
frmSelectAPForm.pagSelect.ActivePageIndex := i;
break;
end;
end;
end
else
begin
CallCloseForm(Sender);
ReEnter(doneEvent, 0); p_sSelectAPFormCaption := '連接鍵設定';
p_iSelectAPFormActivePageID := 8;
OpenMDIForm(Sender, TfrmSelectAPForm, '', '', True, 1);
end;
解决方案 »
- 餐饮软件分单打印的字体控制
- 彩超工作站的研发
- 急問: 請問有人用Delphi寫過對Godex EZ1100條碼打印機的指令調用嗎
- 关于三层结构(希望有经验的兄弟能知无不言)
- 在dbgrid中如何实现有的记录可以修改,有的记录不可以修改
- 请教Parent和Owner的区别! 200502
- 请问如何能把一个用,隔开的字符串中最后一个逗号和以后的字符给删除掉?
- 建立了几个数据表(用Access)没有设关键字,怎样用ADOQuert通过一个表来查别一个表??
- 一个SQL语句
- 高分求教动态创建计算字段
- Error creating form: Invalid stream format.问题
- 数据库查询语句咨询..
begin
if (F_Main.ActiveMDIChild.ClassName = 'TfrmSelectAPForm') then
if Trim(TfrmSelectAPForm(ActiveMDIChild).panTitle.Caption) = '硈挡龄砞﹚' then
Exit; CallCloseForm(Sender);
ReEnter(doneEvent, 0); p_sSelectAPFormCaption := '硈挡龄砞﹚';
p_iSelectAPFormActivePageID := 8;
OpenMDIForm(Sender, TfrmSelectAPForm, '', '', True, 1);end;