ShowModal的用法該注意哪裏?? |
|
尚未結案
|
|
jch
中階會員   發表：111 回覆：224 積分：66 註冊：2003-12-01 發送簡訊給我 |
unit two_a1_data; interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, ExDBGrid, Db, DBTables, PDJ_Basic, PDJ_DBLook, StdCtrls,
PDJ_Lab, kbmMemTable, SUIButton; type
Tfrm_Two_A1_Data = class(TForm)
PDJLabel1: TPDJLabel;
COUNTRY_E: TPDJDBLookupComboBox;
q1: TQuery;
ds1: TDataSource;
ds11: TDataSource;
mt11: TkbmMemTable;
ok: TsuiButton;
cancel: TsuiButton;
ExDBGrid1: TExDBGrid;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure COUNTRY_EClick(Sender: TObject);
procedure okClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure cancelClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function SelectPort: string;
var
frm_Two_A1_Data: Tfrm_Two_A1_Data;
Port: string;
implementation uses main; {$R *.DFM} function SelectPort: String;
begin
frm_Two_A1_Data.ShowModal;
Result := Port;
end; procedure Tfrm_Two_A1_Data.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end; procedure Tfrm_Two_A1_Data.FormCreate(Sender: TObject);
begin
with q1 do begin
DatabaseName := mCmp.Data;
RequestLive := True;
with SQL do begin
Clear;
Add('select * from sal_cus');
end;
Open;
mt11.Close;
mt11.LoadFromDataSet(q1, [mtcpoStructure]);
Close;
end;
end; procedure Tfrm_Two_A1_Data.COUNTRY_EClick(Sender: TObject);
begin
with q1 do begin
Close;
with SQL do begin
Clear;
Add('select * from hqx_port');
Add('where COUNTRY_E=:E');
end;
ParamByName('E').AsString := COUNTRY_E.Text;
Open;
end;
end; procedure Tfrm_Two_A1_Data.okClick(Sender: TObject);
begin
Port := q1.FieldByName('PORT').AsString;
Close;
end; procedure Tfrm_Two_A1_Data.FormActivate(Sender: TObject);
begin
Port := '';
end; procedure Tfrm_Two_A1_Data.cancelClick(Sender: TObject);
begin
close;
end; end. 以上是小弟的程式,小弟於其他的FROM上呼叫以上程式中的SelectPort的Function,但是程式在ShowModal的地方發生錯誤,不知有哪裡需要注意的?? ========================
我是DELPHI的初學者
|
|
hahalin
版主  發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我 |
|
|
william
版主  發表：66 回覆：2535 積分：3048 註冊：2002-07-11 發送簡訊給我 |
|
|
jch
中階會員 發表：111 回覆：224 積分：66 註冊：2003-12-01 發送簡訊給我 |
|
|
channel
尊榮會員 發表：67 回覆：707 積分：854 註冊：2002-05-02 發送簡訊給我 |
引言: function SelectPort: String; begin application.createform(tfrm_Two_A1_Data,frm_Two_A1_Data); frm_Two_A1_Data.ShowModal; Result := Port; end; 小弟將程式改為如上的寫法,錯誤訊息變成'Cannot make a visable window modal'!! ======================== 我是DELPHI的初學者您的frm_Two_A1_Data的FormStyle是不是fsMDIChild? 若是fsMDIChild則使用frm_Two_A1_Data.Show; 若是fsNormal則看一下frm_Two_A1_Data的屬性Visible要設為False才可執行frm_Two_A1_Data.ShowModal; 總結： From Style Visible 開啟方式 ================================= fsMDIChild True Show fsNormal False ShowModal~小弟淺見，參考看看~
------
~小弟淺見，參考看看~ |
發表時間：2004-02-20 15:58:02
IP:61.221.xxx.xxx 未訂閱
系統時間：2024-05-03 1:24:29
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |