Текущий архив: 2002.10.07;
Скачать: CL | DM;
Вниз
Чем отличаются проекты Найти похожие ветки
← →
Андрусь © (2002-09-27 12:22) [0]Привет всем! Посоветуйте что мне делать:есть 2 проекта, к ним подцеплены одинаковые модули.Настройки проектов не трогаю - всё идет по умолчанию.В модулях: в главном TOraSession + кнопка для создания формы из 2-го модуля. Во втором - OraSession, Query,DataSourse,Grid.На криэте беру коннект и открываю Query.
unit Unit1;//fsMDIForm
.......................
type
TMainForm = class(TForm)
Button1: TButton;
MainOraSession: TOraSession;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
Uses Unit2;
{$R *.dfm}
procedure TMainForm.FormCreate(Sender: TObject);
begin
MainOraSession.Connect;
end;
procedure TMainForm.Button1Click(Sender: TObject);
var Form2:TForm2;
begin
Form2:=TForm2.Create(Application);
end;
{***********************************************}
unit Unit2;//fsMDIChild
.......................
type
TForm2 = class(TForm)
OraSession1: TOraSession;
SmartQuery1: TSmartQuery;
OraDataSource1: TOraDataSource;
dxDBGrid1: TdxDBGrid;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
Uses Unit1;
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
OraSession1.Assign(MainForm.MainOraSession);
With OraSession1 Do
Begin
ConnectPrompt:=False;
Connect;
End;
SmartQuery1.Open;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
end.
Так вот в одном проекте при закрытии вылетает CPU окно,в другом нет.
В чем может быть дело.Зараннее всем большое спасибо!
← →
Cobalt © (2002-09-27 13:36) [1]Попробуй пересобрать все *.dcu...
← →
Андрусь © (2002-09-27 15:33) [2]Беру чистые(новые) формы,собераю всё снова - в нек. проектах получаю глюк, в нек. нет. Следовательно, скорей всего глючит компонент.
← →
Рыжик © (2002-09-27 15:41) [3]А использование во второй форме ещё одного TOraSession обязательно? Может можно обойтись обним?
← →
Андрусь © (2002-09-27 16:11) [4]Да мультисейсионный режим обязателен.
← →
Рыжик © (2002-09-27 16:17) [5]Либо сами проекты друг от друга чем-то всё-таки отличаются, либо ошибка такова, что возникает не каждый раз. Если проект с ошибкой выдаёт ошибку всегда, а проект без ошибки всегда работает без ошибки, то "Найди 7 отличий"
← →
alena.svt © (2002-09-27 16:32) [6]Извините если не в тему плиз, но у меня подобные траблы случаются в очень простеньких отработанных кодах. И причем только в Win2k окно cpu
Но вне среды разработки все нормально. Если конечно у вас и без дельфей ошибочка вылетает то извините за беспокойство.
Страницы: 1 вся ветка
Текущий архив: 2002.10.07;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.017 c
