【结贴】[问题]TGraphicTab 代码怎么控制？**

rzport_wd

[QUOTE也可以模仿  业务模型\协同系统\面板功能\我的功能\我的待办
procedure TMYTASKDOC.tbTabChange(Sender: TObject; Index: Integer);
函数
[/QUOTE]

不是很好模仿阿。看了一天，也没个头绪阿。

atiger

8楼出现的想像肯定是逻辑出问题了
下面的代码是我切换DataGrid连接的数据源，可以参考

unit MainForm;

interface

uses
  Business.System, Business.Model, Business.Forms, Business.Data;

type
  TMainForm = class(TForm)
    FuncBroker: TFuncBroker;
    InfoBrokerOLEXX: TInfoBroker;
    ControlBar: TControlBar;
    DataNavigator: TDataNavigator;
    DocViewBar: TDocViewBar;
    GraphicTab1: TGraphicTab;
    DataGrid1: TDataGrid;
    DataSetBroker1: TDataSetBroker;
    DataSetBroker2: TDataSetBroker;
    procedure BizFormShow(Sender: TObject);
    procedure DataGridDblClick(Sender: TObject);
    procedure GraphicTab1Change(Sender: TObject; Index: Integer);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TMainForm.BizFormShow(Sender: TObject);
begin
  GraphicTab1.Index:= 0;
  DataSetBroker1.DataSet.Open;
  DataSetBroker2.DataSet.Open;
end;

procedure TMainForm.DataGridDblClick(Sender: TObject);
begin
  GraphicTab1.Index:= 1;
  DataGrid1.DataSource := DataSetBroker2;
end;

procedure TMainForm.GraphicTab1Change(Sender: TObject; Index: Integer);
begin
  if GraphicTab1.Index = 0 then
  begin
    DataGrid1.DataSource := DataSetBroker1;
  end;
  if GraphicTab1.Index = 1 then
  begin
    DataGrid1.DataSource := DataSetBroker2;
  end;
end;

end.

lixy

请回馈

lixy

结贴