куда пропала форма ?

← →
ников (2006-09-14 12:19) [0]

Не поможет ли кто прояснить странное. В программу была добавлена форма, открываемая не сразу, а по FormCreate. однако в процессе отладки форма вдруг исчезла (видно что-то нажал неположенное) -- т.е. редуктор кода с формой Unit на месте, ее файл dfm открывается и редактируется, в работе программы она нормально работает -- нет ее только в режиме проектирования, а по F12 ничего не переключается: следовательно ее ObjectInspector также недоступен. Не смертельно конечно, но как-то неуютно.
Кстати, копирование файла dfm формы-невидимки в другой для чистой формы привело к тому же эффекту -- очевидно "невидимость" хранится в нем.

← →
Elen © (2006-09-14 12:32) [1]

> ников

Приведи начало Unita формы которая исчезла до описания функций

← →
Dmitrij_K (2006-09-14 12:32) [2]

Уехала за предел экрана
Left := 0
Top := 0

← →
ников (2006-09-14 14:52) [3]

to Elen
Вот это начало:
unit UBaseIn;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
UDiVar;

type
TForm4 = class(TForm)
Label1: TLabel;
Label2: TLabel;
LabelX: TLabel;
EditX: TEdit;
LabelY: TLabel;
EditY: TEdit;
Label5: TLabel;
Label6: TLabel;
LabelFi:TLabel;
EditFi: TEdit;
LabelGrad:TLabel;
ButtonOK: TButton;
procedure FormActivate(Sender: TObject);
procedure EditXChange(Sender: TObject);
procedure EditYChange(Sender: TObject);
procedure EditFiChange(Sender: TObject);
procedure ButtonOKClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

const SSInR11="Êîîðäèíàòû âðàùàòåëüíîé ïàðû ";
SSInR12=" ñòîéêè";
SSInP11="Êîîðäèíàòû êàêîé-ëèáî òî÷êè, ëåæàùåé";
SSInP12="íà íàïðàâëÿþùåé ïîñòóïàòåëüíî&# 233; ïàðû ";
SSInP21="Óãîë îò îñè àâñöèññ äî ïîëîæèòåëüíîã&# 238;";
SSInP22="íàïðàâëåíèÿ ïîñòóïàòåëüíî&# 233; ïàðû ";
var
BaseIn: TForm4;

implementation

uses QForms,Math,UDIMain,Udi1,UDi3;
// {$R *.dfm}

procedure TForm4.FormActivate(Sender: TObject);
begin
...
Форма открывается в UDi3, где есть ссылка на UBaseIn.

to Dmitrij_K
Форма в процессе работы находится в центре экрана, где и должна быть. Ее нет в режиме проектирования. Соответствующий значок на линейке недоступен (высерен), так что, пожалуй, не в этом дело.

← →
Плохиш © (2006-09-14 15:04) [4]

> // {$R *.dfm}

Предлагаю тому, кто вставил эти два символа, отрубить грабли по самые уши.

← →
Dmitrij_K (2006-09-14 15:11) [5]

> Предлагаю тому, кто вставил эти два символа, отрубить грабли
> по самые уши.

Поставить в угол, и заставить выучить первые 50 страниц книги Delphi для чайников

← →
ников (2006-09-14 16:04) [6]

to Плохишу и Dmitrij_K
Приятно иметь дело с такими жизнерадостными Masters.
Но беда в том, что без этих символов. т.е. со строчкой {$R *.dfm}, программа пишет Duplicate Resourse. Так что, боюсь залп мимо цели.

> ников (14.09.06 16:04) [6]
> Но беда в том, что без этих символов. т.е. со строчкой {$R
> *.dfm}, программа пишет Duplicate Resourse.

Т.е. вместо того чтобы искать, какие ресурсы дублируются, Вы отключаете файл ресурсов совсем и удивляетесь, что редактор ресурсов после этого не запускается?

> ников

Як серце Чуяло, що справа у ресурсах...
Ищи где у тебя еще такие-же директивы прописаны во всем коде

← →
ников (2006-09-14 17:32) [9]

Спасибо ребята и дивчины.
Дублирование ресурса, оставшееся от переименования формы, исключил -- все получилось. Такой пустяк, а кровь портит. Еще раз спасибо.

куда пропала форма ? Найти похожие ветки