将 一个在FORM窗口中的 uniquery 传入到DLL中后执行
命令没有问题,但是一退出主程序就出错,请问是为什么
with UniQuery do
begin
Close;
SQL.Text := SelectText;
Open;
end;
执行上面这样的命令后退出主程序就出错,我是在一个主窗口中弹出另一个Form窗体,然后一个按钮执行procedure DLLUnloadProc(Reason: Integer); register;
begin
if (Reason = DLL_PROCESS_DETACH) or (Reason = DLL_THREAD_DETACH) then
Application := DLLApp;
end;procedure ShowSelectWindow(APP: TApplication; H: THandle; Frm: TForm; DBGridEh1: TDBGridEh; AUniQuery: TUniQuery; SelectSqltext: WideString; N: Integer);
begin
Application.Handle := H;
DLLAPP := Application;
DLLProc := @DLLUnloadProc;
Application := TApplication(app);
F_SelectWin := TF_SelectWin.Create(frm);
try
with F_SelectWin do
begin
Hide;
ParentSelectSqltext := SelectSqltext;
DBGridEhX := DBGridEh1;
UniQuery := AUniQuery;
BorderStyle := bsDialog;
Position := poScreenCenter;
Showmodal;
end;
finally
FreeAndNil(F_SelectWin);
end;end;
命令没有问题,但是一退出主程序就出错,请问是为什么
with UniQuery do
begin
Close;
SQL.Text := SelectText;
Open;
end;
执行上面这样的命令后退出主程序就出错,我是在一个主窗口中弹出另一个Form窗体,然后一个按钮执行procedure DLLUnloadProc(Reason: Integer); register;
begin
if (Reason = DLL_PROCESS_DETACH) or (Reason = DLL_THREAD_DETACH) then
Application := DLLApp;
end;procedure ShowSelectWindow(APP: TApplication; H: THandle; Frm: TForm; DBGridEh1: TDBGridEh; AUniQuery: TUniQuery; SelectSqltext: WideString; N: Integer);
begin
Application.Handle := H;
DLLAPP := Application;
DLLProc := @DLLUnloadProc;
Application := TApplication(app);
F_SelectWin := TF_SelectWin.Create(frm);
try
with F_SelectWin do
begin
Hide;
ParentSelectSqltext := SelectSqltext;
DBGridEhX := DBGridEh1;
UniQuery := AUniQuery;
BorderStyle := bsDialog;
Position := poScreenCenter;
Showmodal;
end;
finally
FreeAndNil(F_SelectWin);
end;end;
解决方案 »
- 在panel上有一个image组件,图片本身的背景是透明的,可是将这张图片放到image组件中,图片的背景却变成了白色,有一个白色的矩形框,怎样保持透明?
- delphi 怎么等待2秒后继续运行程序??
- 散分,新年到,新年到,祝大家新年好。
- ADO数据更新
- TDataSet 如何用数据集过滤的方法排序
- 招聘 delphi 程序员 最好熟悉C/C++编程
- 关于FLASH的一个问题??
- 快来呀散分了,第一个来的给100分?
- 关于日期型的操作
- 打印高手请进:一个打印的基础问题!30分也不少哟!
- 如何在选择RadioButton1之后,让程序知道需要发送的是数字“1”?
- 还是字符串列表比较问题,请帮我修改代码
我怎么觉得这个有问题呢
begin
sql.clear;
SQL.Text := SelectText;
Open;
....... close;
end;
Application := TApplication(app);
感觉这些句子的目的是解决窗口上下的关系。