با ایجاد اشیا در حالت run-time مشکل دارم
اصلا متوجه نمیشم، برنامه کامپایل میشه اما در هنگام اجرا پیغام میده که کلاس های تعریف شده رو پیدا نمیکنه
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, XPMan, StdCtrls,
Buttons;
type
TForm1 = class(TForm)
XPManifest1: TXPManifest;
procedure FormCreate(Sender: TObject);
Private
public
DataSource: TDataSource;
DataSet: TADODataSet;
Connection: TADOConnection;
procedure btnSaveClick(Sender: TObject);
procedure btnRefuseClick(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
Grid: TDBGrid;
Navigator: TDBNavigator;
btnSave: TBitBtn;
btnRefuse: TBitBtn;
begin
Connection:= TADOConnection.Create(nil);
DataSource:= TDataSource.Create(nil);
DataSet:=TADODataSet.Create(nil);
btnSave:=TBitBtn.Create(nil);
btnRefuse:=TBitBtn.Create(nil);
With Connection do
begin
end;
DataSource.DataSet:=DataSet;
With DataSet do
begin
end;
Grid:= TDBGrid.Create(nil);
with Grid do
begin
Align:=alTop;
Width:=550;
Height:=361;
Options:= Options + [dgAlwaysShowEditor];
DataSource:=DataSource;
end;
Navigator:= TDBNavigator.Create(nil);
with Navigator do
begin
DataSource:=DataSource;
align:= alBottom;
width:=550;
height:=27;
end;
with btnSave do
begin
Caption:='OK';
Kind:=bkOK;
ModalResult:=mrOK;
Width:=99;
Height:=33;
left:=160;
top:=376;
OnClick:=btnSaveClick;
end;
with btnRefuse do
begin
Caption:='OK';
Kind:=bkCancel;
ModalResult:=mrCancel;
Width:=99;
Height:=33;
left:=280;
top:=376;
OnClick:=btnRefuseClick
end;
end;
procedure Tform1.btnSaveClick(Sender: TObject);
begin
end;
procedure Tform1.btnRefuseClick(Sender: TObject);
begin
end;
Class TDBGrid,TAdoConnection,TDataSet not found
پاسخ با نقل قول
