Автор: Пользователь скрыл имя, 06 Февраля 2013 в 01:52, аттестационная работа
Класс TList -- универсальный список. Он представляет собой массив нетипированных указателей и поэтому годится для хранения набора любых, в том числе разнотипных, данных и объектов. При добавлении/удалении в список данные не создаются и не уничтожаются -- эта обязанность лежит на программисте. Приведем доступные ему методы и свойства класса.
Каждая форма может иметь главное и всплывающее меню. Главное меню определяется свойством:
(РЬ| property Menu: TMainMenu;
Оно может быть у каждой формы (и только у формы). Для того чтобы не возникало путаницы с несколькими одновременно видимыми меню в одном приложении, у компонентов TMainMenu предусмотрена возможность объединения в одном.
Всплывающее меню формы представлено свойством:
(Pb) property PopupMenu: TPopupMenu;
Форма может содержать объекты OLE. Для этого она должна быть зарегистрирована в качестве их приемника. Свойство
property DropTarget: Boolean;
устанавливает, может ли форма быть приемником объектов OLE. Для размещения подменю возможностей сервера OLE можно выделить отдельный пункт:
(Pb) property ObjectMenuItem: TMenuItem;
Этот пункт будет активизироваться при получении фокуса компонентом TOLEContainer.
Создание формы
Правила создания форм на этапе выполнения задаются в опциях проекта (страница Forms). Все формы, которые вы включили в состав приложения на этапе визуального проектирования, могут быть автоматически созданы при его запуске, для этого их имена должны находиться в списке Auto-Create Forms. Все прочие формы (список Available Forms) нужно создавать самостоятельно, вызвав конструктор Create или метод Application.CreateForm.
Самым первьм событием, которое возникает при создании формы, является:
(Pb) property OnCreate: TNotifyEvent;
Это событие инициируется в конструкторе формы и позволяет выполнить операции по начальной установке формы и ее элементов до визуализации. В обработчик этого события стоит включить присвоение значений неопубликованным свойствам формы и свойствам компонентов, которых нет в Палитре компонентов, например, TApplication. Также здесь нужно "подключить" написанные вами обработчики событий для этих компонентов. В этом случае внешний вид и поведение форм будут корректными с самого начала.
Первоначально показана будет только одна -- главная форма. Вы также можете придать этот статус любой из всех автоматически создаваемых форм посредством опций проекта. По умолчанию главной будет первая включенная в проект форма.
Для показа и активизации прочих форм необходимо вызвать одну из методов -- Show или ShowModal. Последний используется только для модальных форм, работа с которыми описана ниже. При вызове метода
procedure Show;
происходит показ формы на экране. При показе она становится видимой и помещается поверх других форм приложения, что сопровождается инициализацией события:
(РЬ) property OnShow: TNotifyEvent;
При этом форма получает то положение и размеры, которые задаются значениями свойства:
(Pa property Position: TPosition;
TPosition = (poDesigned, poDefault, poDefaultPosOnly,
poDefaultSizeOnly, poScreenCenter) ;
poDefault -- принять положение и размеры, определенные средой Windows по умолчанию;
poDefaultPosOnly -- принять только положение, определенное средой Windows по умолчанию;
poDefaultSizeOnly -- принять только размеры, определенные средой Windows по умолчанию;
poScreenCenter -- разместить окно по центру экрана (при этом размеры будут равны половине ширины и высоты экрана в пикселах, а для дочерней формы MDI -- половине соответствующих размеров клиентского окна);
poDesigned -- принять те значения положения и размеров, которые были определены во время разработки приложения.
После того, как форма стала видимой, возникает необходимость в ее перерисовке. Программист может определить, что и как изображается в клиентской области формы, описав реакцию на событие:
(Plo) property OnPaint: TNotifyEvent;
Для этого он должен использовать канву формы:
(Ro) property Canvas: TCanvas;
Обработчик события OnPaint вызывается до того, как начнется отрисовка всех компонентов, принадлежащих форме. Поэтому нарисованное в нем может послужить фоном. Пример:
procedure TFormI.FormCreate(Sender: TObject) ;
begin
gr := TBitmap.Create ;
gr.LoadFromFile('c:\delphi\
procedure TFormI.FormPaint(Sender: TObject);
begin
Canvas.Draw(0,0,gr) ;
end;
После отрисовки форма получает фокус ввода сообщений от системных устройств, т. е. становится активной. Об этом извещает наступление события:
(Pb) property OnActivate: TNotifyEvent;
Узнать, активна ли форма, можно путем обращения к ее свойству:
(Ro) property Active: Boolean;
При активизации формы ей посылается сообщение о настройке ее размеров (WM_SIZE). После того, как размеры изменены, возникает событие
(Pb) property OnResize: TNotifyEvent;
которое может быть использовано для переустановки размеров как формы, так и всех элементов управления на ней. В следующем примере форма настраивает размеры своей клиентской области точно по размерам содержащейся в ней таблицы DrawGridI, которая, в свою очередь, тоже пытается получить максимально возможный в данной области размер:
procedure TFormI.FormResize(Sender: TObject);
var i,w,h : integer;
begin
if WindowState=wsNorinal then with DrawGridI do begin
w := (ClientWidth - ColCount*GridLineWidth) div ColCount;
if w < 1 then w := 1;
h := (ClientHeight - RowCount*GridLineWidth) div RowCount;
if h < 1 then h := 1;
for i := 0 to ColCount-1 do ColWidths[i] := w;
for i := 0 to RowCount-1 do RowHeights [i] := h;
Inc(w, GridLineWidth);
Inc(h, GridLineWidth);
if (ClientWidth <> w * ColCount) or
(ClientHeight oh* RowCount) then begin
Forml.ClientWidth := w * ColCount + 2*GridLineWidth;
Forml.ClientHeight := h * RowCount + 2*GridLineWidth;
end;
end;
end;
Здесь нужно обратить внимание на два момента. Во-первых, изменение размеров внутри обработчика OnResize влечет за собой как минимум один новый вызов этого события, поэтому возможны неоднократные перерисовки и изменения размеров. Во-вторых, чтобы этот процесс рано или поздно остановился, нужно ввести условия, при достижении которых размеры изменяться не будут, иначе наступит зацикливание.
После изменения размеров вновь возникает событие OnPaint.
Разумеется, описанные выше события (OnPaint, OnActivate и OnShow) возникают не только при инициализации формы, а и, к примеру, при каждом переключении между приложениями или формами в приложении. Последние два действия имеют парные события, возникающие при утере фокуса или исчезновении формы с экрана:
(pb) property OnDeactivate: TNotifyEvent;
(Pb) property OnHide: TNotifyEvent;
Метод
procedure Hide;
дает возможность сделать форму невидимой (изменяет свойство Visible). Во всех случаях, когда форма становится невидимой, возникает событие OnHide.
С помощью пары методов Show/Hide обычно управляют из главной формы показом прочих форм. Будьте внимательны! При вызове Hide для главной формы подумайте о том, каким путем вы собираетесь после этого снова визуализировать ее.
Основной способ, используемый для закрытия формы -- это вызов метода:
procedure Close;
В первую очередь внутри Close вызывается метод:
function CloseQuery: Boolean;
Для закрытия формы необходимо, чтобы он вернул True. Этот метод -- прямой аналог метода CanClose в библиотеке OWL. Для проверки на возможность закрытия он вызывает обработчик события:
(Pb) property OnCloseQuery: TCloseQueryEvent;
TCloseQueryEvent = procedure(Sender: TObject; var CanClose: Boolean) of object;
Здесь вы должны проверить возможность закрытия формы и вернуть нужное значение в параметре CanClose (который изначально имеет значение True). Например:
procedure TPorm2.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if Memo 1.Modified then case MessageDlgf' Save text?', mtWarning, mbYesNoCancel, 0) of
mrYes: Memol.Lines.SaveToFile('
mrCancel: CanClose := False;
end;
end;
Таким образом, если обработчик события OnCloseQuery не описан, возвращается True (форму можно закрыть).
Для форм стиля fsMDIForm (родительских окон MDI) сначала должны закрываться все дочерние формы (вызываются их методы CloseQuery). Если хотя бы одна из них возвращает False, метод тут же возвращает False, и обработчик события OnCloseQuery закрываемой родительской формы управления не получает.
Затем метод Close вызывает обработчик следующего события
(Pb) property OnClose: TCloseEvent;
TCloseEvent = procedure(Sender: TObject; var Action : TCloseAction) of object;
TCloseAction = (caNone, caHide, caFree, caMinimize);
что позволяет определить дальнейшую реакцию. Дело в том, что закрытие можно реализовать различными способами, в зависимости от значения параметра Action:
caNone -- не делать ничего;
caHide -- сделать форму невидимой (скрыть);
caMinimize -- свернуть форму в значок;
caFree -- уничтожить форму, вызвав ее деструктор.
Перед вызовом OnClose в параметр Action засылается значение caHide. Исключение составляют дочерние формы MDI, для которых засылается значение caMinimize или caNone в зависимости от возможности их сворачивания.
Если обработчик вернул значение caNone, форма не закрывается. Таким путем можно продублировать OnCloseQuery.
При закрытии главной формы приложения любое отличное от caNone значение вызывает завершение приложения. Для формы, не являющейся главной, значения caHide и caMinimize позволяют соответственно скрыть и свернуть ее в значок. Выбор значения caFree влечет за собой вызов деструктора путем обращения к методу:
procedure Release;
Последним при уничтожении формы инициализируется событие:
(Pb) property OnDestroy: TNotifyEvent;
Это событие является парным по отношению к OnCreate; обработчик его вызывается в деструкторе формы. Здесь программист может предумотреть необходимые действия при уничтожении формы, к примеру, записать значения в файл JNI.
Модальные формы
Компонент TForm в VCL объединяет в себе свойства и может играть роль как главного окна программы, так и диалогового (модального) окна. Чтобы форма работала в качестве диалога, вместо метода Show нужно вызвать метод:
function ShowModal: Integer;
Этот метод реализует весь жизненный цикл модальной формы. Он показывает ее на экране, активизирует ее и запрещает переключение на другие формы приложения. Начинается обработка сообщений, которая происходит до тех пор, пока свойство
(Rb) property ModalResult: TModalResult ;
не изменит своего значения, первоначально нулевого. Напомним, что это свойство формы меняется непосредственно с помощью некоторых видов принадлежащих ей кнопок (см. раздел "Кнопки"). Если для модальной формы программистом вызывается метод Close, то ее единственным действием является то, что свойству ModalResult присваивается значение mrCancel (без вызовов OnCloseQuery и OnClose).
Как только получено ненулевое значение ModalResult, вызьшается метод:
procedure CloseModal;
Его роль такая же, как у Close для обычной формы: сначала вызов CloseQuery, затем -- генерация события OnClose. Установив в параметре Action этого события значение caNone, можно обнулить ModalResult и тем самым воспрепятствовать закрытию. В противном случае форма деактивизируется и делается невидимой.
Этот набор методов неприменим к дочерним формам MDI (со стилем fsMDIChild).
Управление дочерними элементами
Если вы хотите передать фокус одной из форм проекта, используйте метод этой формы:
procedure SetFocus;
Форма при этом обязана быть видимой и активной (Enabled), иначе создается исключительная ситуация EInvalidOperation.
Два метода отвечают за передачу фокуса между визуальными компонентами в составе формы. Метод
procedure FocusControl(Control: TWinControl);
передает фокус элементу управления Control, а метод
procedure DefocusControl(Control: TWinControl; Removing: Boolean);
отбирает его. Параметр Removing, равный True, означает, что элемент при этом должен передать фокус своему родительскому элементу. Напомним, что для элементов в эти моменты генерируются события OnEnter и OnExit. Имеющий фокус элемент определяется свойством:
(РЁ) property ActiveControl: TWinControl;
Оно может принимать значение nil, если фокус имеет сама форма.
В компоненте TForm доступен еще один метод, по предназначению сходный с FocusControl:
function SetFocusedControl(Control: TWinControl): Boolean;
Этот метод вызывается внутри многих компонентов (находящихся вне модуля FORMS) при получении фокуса ввода -- именно поэтому он находится в секции public. Программисту не стоит его использовать, т. к. он не документирован.
Форма относится к компонентам с возможностью прокрутки содержимого клиентской области. К полосам прокрутки можно обратиться как к отдельным объектам с помощью свойств:
(pb) property HorzScrollBar;
(Pis) property VertScrollBar;
Если все элементы управления не могут быть видны при данных размерах формы, она может быть снабжена полосами прокрутки автоматически. Это происходит, если свойство
(Pb) property AutoScroll;
установлено в значение True. Следующий метод помещает элемент управления AControl в видимую часть клиентской области:
procedure ScrollInView(AControl: TControl);
Он изменяет, если необходимо, положение бегунков полос прокрутки. При передаче фокуса между элементами управления формы те из них, которые находятся вне ее видимой части, автоматически вызывают этот метод.
Форма имеет возможность перехватить ввод от клавиатуры, предназначенный имеющему фокус элементу управления. Установка свойства
(Pb) property KeyPreview: Boolean;
в True означает, что поступающие от клавиатуры сообщения будут сначала поступать форме, и только затем -- элементу. Пример использования этой возможности приведен в разделе "Обработка событий от мыши и клавиатуры".
Немаловажной проблемой является то, как заставить форму и ее элементы выглядеть одинаково при различных режимах работы видеоадаптера. Текущую разрешающую способность в точках на дюйм можно задать при помощи свойства:
(Pb) property PixelsPerInch: Integer;
Вы можете присвоить этому свойству любое значение, превышающее 36, либо 0.
При ненулевом значении этого свойства во время создания форма и все ее элементы масштабируются в некоторой пропорции. Эта пропорция равна отношению числа точек на дюйм на экране в данный момент к этому же числу во время разработки. Если же PixelsPerInch = 0, никакого масштабирования не производится.
Чтобы не изменять PixelsPerInch напрямую, разработчики предусмотрели другое -- обобщающее -- свойство:
(Pb) property Scaled: Boolean;
При установке Scaled в False PixelsPerInch обнуляется, в True -- получает новое значение, равное числу точек на дюйм на экране в текущем видеорежиме.
Нужно учитывать, что если вы хотите сделать приложение, независимое от разрешения экрана, то значение свойства Position у всех его форм должно отличаться от poDesigned -- иначе они будут появляться в разных местах (в том числе и за пределами экрана).
Внешний вид формы и ее составных частей можно отобразить не только на экране. Метод
function GetForrnImage: TBitmap;
возвращает "моментальный снимок" формы -- битовую карту с ее изображением. Печать на принтере изображения формы, полученного при помощи GetFormImage, осуществляется методом:
procedure Print;
Полученное изображение передается объекту TPrinter (см. ниже), при этом его масштабирование производится в соответствии со значением свойства:
(Pb) property PrintScale: TPrintScale;