这样应该可以:
procedure TForm1.Button1Click(Sender: TObject);
procedure PrintWithDll(cust1: String; cust2: String; code: String; code_name: String; lines: String);
begin
//
end;
begin
PrintWithDll(...);
end;
procedure TForm1.Button1Click(Sender: TObject);
procedure PrintWithDll(cust1: String; cust2: String; code: String; code_name: String; lines: String);
begin
//
end;
begin
PrintWithDll(...);
end;
解决方案 »
- 既能输入又可选择的2列下拉列表
- 用DELPHI开发的ActiveX(dll)regsvr32注册后,怎样让IE认为是安全的?
- 关于Trichedit(如何实现多次撒消)
- 求一个比较好的算法
- 一个小问题
- Winsocket编程的问题???? 急,急, 急!!!!!!!!
- SQL Server 中 使用convert函数将日期型转换为字符型时是: Feb 3 2002 12:00AM ?
- 还是formshow的问题
- 自己定义打印预览的窗口的时候,怎样调用这个自己定义的窗口?
- 请高手相助,api >> WM_SYSCOMMAND 的用法和声明!感谢万分,一定给分!
- 急呀大侠们你们知道怎么取得局域网中安有数据库的机器名及数据库名(SQL Server2000)
- 关于access关于自动增量的字段!
procedure TForm1.Button1Click(Sender: TObject);
begin
If ... Then
ShowMessage(...);
PrintWithDll(...);
end;