新手一个问题,请大家帮忙!

Question

我定义了一些类,dtbreak,dtline,dtbase这几个类的父类是同一个类,定义了一个集合类型,
DrawTool=(dtbreaker,dtline,dtbase);
定义一个全局变量
m_DrawTool:DrawTool;
想在下面这个过程中根据m_DrawTool的值来分别建立相应的对象,并把它们加入到一个Tobjectlist对象g_ElementList1中去,我应该如何来做呀,请各位帮忙呀.procedure Tm_MainForm.PaintBox1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
end;

Answer 1

参考一下吧:
procedure TForm1.ButtonInfo(_tool:DrawTool;caption:TCaption);
begin
     case _tool of
         dtbreaker:
              Edit1.Text := caption;
         dtline:
              Edit1.Text := caption;
         dtbase:
              Edit1.Text := caption;
     end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
     m_DrawTool := dtbreaker;
     ButtonInfo(m_DrawTool,Button1.Caption);
end;

Answer 2

非常感谢楼上的答复,只是楼上好像没有明白我的意思,我的意思是根据m_DrawTool的值的不同来定义一个相应的对象出来,并把它加入到TobjectList变量里去.