有多个Frame,里面都有相同的stringgrid的初始化,请问怎么把它写成通用过程//////
例如:
frame_input.view_grid.ColWidths[0]:=10;
frame_input.view_grid.Cells[0,0]:='';
frame_input.view_grid.ColWidths[1]:=100;
frame_input.view_grid.Cells[1,0]:='编号';
frame_input.view_grid.ColWidths[2]:=60;
frame_input.view_grid.Cells[2,0]:='姓名';
frame_input.view_grid.ColWidths[3]:=40;
frame_input.view_grid.Cells[3,0]:='性别';
frame_input.view_grid.ColWidths[4]:=40;
frame_input.view_grid.Cells[4,0]:='年龄';
..........还有很多列我想把这样的初始化stringgrid写成一个通用过程,请问要怎么申明过程参数!!
procedure frame_grid_init(frame_input:Tframe;view_grid:Tstringgrid);
为什么这样申明通用过程,通不过???WHY?
例如:
frame_input.view_grid.ColWidths[0]:=10;
frame_input.view_grid.Cells[0,0]:='';
frame_input.view_grid.ColWidths[1]:=100;
frame_input.view_grid.Cells[1,0]:='编号';
frame_input.view_grid.ColWidths[2]:=60;
frame_input.view_grid.Cells[2,0]:='姓名';
frame_input.view_grid.ColWidths[3]:=40;
frame_input.view_grid.Cells[3,0]:='性别';
frame_input.view_grid.ColWidths[4]:=40;
frame_input.view_grid.Cells[4,0]:='年龄';
..........还有很多列我想把这样的初始化stringgrid写成一个通用过程,请问要怎么申明过程参数!!
procedure frame_grid_init(frame_input:Tframe;view_grid:Tstringgrid);
为什么这样申明通用过程,通不过???WHY?
解决方案 »
- 在edit1里输入一串字符后点确定,在edit2里输出这串字符的ASCII码,我该怎么做啊?
- 如何去掉WebBrowser的3D模式
- 高手请进,呵呵
- 如何在delphi中调用vc写的dll(在线给分)
- adoquery组件中有没有masterfields属性吧?!难道没人知道吗,急!在线等待!
- 一个简单的 Filter 问题
- 用delphi中的函数调用外部的exe文件。
- 怎么在Delphi里用ADO执行Oracle包里的存储过程并返回结果集?急急急急急急!!!!
- 各位DELPHI大侠,你们用DELPHI做开发,用的是中文版还是英文版?
- 如何把内容发到传真机上??
- 三层结构客户端
- 线程互斥问题,高分求救
在frame上右键add to palette试试
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, ADODB, Unit2;type
TForm1 = class(TForm)
//ADOQuery1: TADOQuery;
Button1: TButton;
Button2: TButton;
TFrame21: TFrame2;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure p_frame(aFrame:TFrame);
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.p_frame(aFrame: TFrame);
begin
with aFrame do
begin
name := 'qzf';
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
p_frame(TFrame21);
end;end.
//Frame
unit Unit2;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TFrame2 = class(TFrame)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;implementation{$R *.DFM}procedure TFrame2.Button1Click(Sender: TObject);
begin
showmessage(self.name);
end;end.