Question

DELPHI combobox问题（下拉框没有出现选项）

unit UFKPB;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, UBase, UTableRule, UReplace, XPBarMenu, UCalFormExe, UCalFormuSet,
HRWebServiceClient, StdCtrls, DBGridEhGrouping, ADODB, DB, DBClient, GridsEh,
DBGridEh, HXDBGridEh, ExtCtrls,ustds;

type
TFKPB = class(TFBase)
Panel1: TPanel;
HXDBGridEh1: THXDBGridEh;
Qry_Data: TClientDataSet;
Qry_field: TADOQuery;
Panel2: TPanel;
Label1: TLabel;
Button1: TButton;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Button2: TButton;
Label4: TLabel;
Edit5: TEdit;
Label5: TLabel;
ComboBox1: TComboBox;
Qry_My: TClientDataSet;
procedure Button1Click(Sender: TObject);
procedure Cmb_PatChange(Sender: TObject);
private
procedure Getdata(ExpCon:string);
public

end;

var
FKPB: TFKPB;

implementation

{$R *.dfm}

{ TFKPB }

procedure TFKPB.Button1Click(Sender: TObject);
begin
self.Getdata(' and 1=1 ');
end;

procedure TFKPB.Cmb_PatChange(Sender: TObject);
begin
combobox1.Items.Add('测试01');
combobox1.Items.Add('测试02');
combobox1.Items.Add('测试03');
end;

Answer 1

打断点查看，估计是没有进到Cmb_PatChange事件里面。