Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

куда пропала форма ? [D6, XP]

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

ников (2006-09-14 17:32:00) [1]
Спасибо ребята и дивчины.
Дублирование ресурса, оставшееся от переименования формы, исключил -- все получилось. Такой пустяк, а кровь портит. Еще раз спасибо.

Elen (2006-09-14 16:19:00) [2]

> ников

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

Плохиш (2006-09-14 16:12:00) [3]

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

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

ников (2006-09-14 16:04:00) [4]
to Плохишу и Dmitrij_K
Приятно иметь дело с такими жизнерадостными Masters.
Но беда в том, что без этих символов. т.е. со строчкой {$R *.dfm}, программа пишет Duplicate Resourse. Так что, боюсь залп мимо цели.

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

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

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

Плохиш (2006-09-14 15:04:00) [6]

> // {$R *.dfm}

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

ников (2006-09-14 14:52:00) [7]
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
Форма в процессе работы находится в центре экрана, где и должна быть. Ее нет в режиме проектирования. Соответствующий значок на линейке недоступен (высерен), так что, пожалуй, не в этом дело.

Elen (2006-09-14 12:32:00) [8]

> ников

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

Dmitrij_K (2006-09-14 12:32:00) [9]
Уехала за предел экрана
Left := 0
Top := 0

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »