Question

delphi 把一个procedure放入另一个procedure中执行

我要把以下内容放到另一个按钮中执行，在另一个铵钮执行语句要怎么写
procedure TForm1.dbgrdh1GetCellParams(Sender: TObject; Column: TColumnEh;
AFont: TFont; var Background: TColor; State: TGridDrawState);
//按条件显示行颜色
begin
if qry1.FieldByName(BYNAME).AsString =process then
Background :=col;
end;

Answer 1

跟其执行其他的过程是一样的。只要把你执行的过程参数设置好就行了，
比如procedure TForm1.button1click(sender: TObject);
var
Col:TColor;
Column:TColumnEh;
begin
dbgrdh1GetCellParams(button1,Column,Button1.Font,col,dbgrd1.GridDrawState);
end;