mob25
На этом шаге мы продолжим изучение некоторых событий и методов класса
TControl.
Полный перечень свойств, методов и событий приведен на шаге 16.
О каждом визуальном компоненте должно быть известно, где он будет
показан и какой будет иметь размер. Свойство:
property BoundsRect: TRect;
определяет прямоугольник, содержащий координаты верхнего левого и правого
нижнего углов
компонента в системе координат клиентской области родительского элемента.
Для формы верхний
левый угол выражен в системе координат экрана.
Также можно установить положение и размер компонента, изменяя координаты
верхнего левого
угла, длины и ширины методом:
procedure setBounds (ALeft, ATop, AWidth, AHeight: Integer);.
К каждой из этих величин есть и раздельный доступ во время разработки с
помощью свойств:
property Left: Integer; property Top: Integer; property Width: Integer; property Height: Integer; .
Другое свойство задает прямоугольник, определяющий положение и размеры
клиентской области
окна элемента управления:
property ClientRect: TRect; .
Эта величина доступна только для чтения. Если необходимо переустановить
размеры клиентской области, нужно воспользоваться парой свойств:
property ClientHeight: Integer; property ClientWidth: Integer; .
Свойство ClientOrigin задает положение начала клиентской области
относительно экрана:
property ClientOrigin: TPoint; .
Если же нужно связать с координатной системой экрана произвольную точку,
пользуйтесь парой
методов (не путать с одноименными функциями Windows API):
function ClientToScreen (const Point: TPoint): TPoint; function ScreenToClient (const Point: TPoint): TPoint; .
Очень важную часть работы по управлению размерами и расположением
элементов выполняет свойство:
property Align: TAlign; .
Оно определяет выравнивание компонента относительно границ родителя.
Может принимать одно из
предопределенных значений:
TAlign = (alNone, alTop, alBottom, alLeft, alRight, alClient);:
- alNone - выравнивание отсутствует;
- alTop, alBottom, alLeft, alRight - выравнивание происходит по
соответствующей стороне
родителя; - alClient - компонент занимает все пространство клиентской области
родителя.
Выравнивание гарантирует, что при изменении размеров родителя
относительная позиция дочернего
элемента не меняется. Это свойство имеет приоритет над
простым изменением положения и
размеров. Если новые координаты элемента противоречат способу его
выравнивания (например,
перемещение вверх при alBottom), изменения отвергаются и элемент
возвращается к первоначальным
координатам. Свойство Align незаменимо при организации панелей
инструментов и
строк состояния: они могут перемещаться и видоизменяться вместе с
содержащей их
формой.
Для временного отключения действия свойства Align предназначены
методы:
procedure DisableAlign; procedure EnableAlign; .
Эти методы управляют возможностью выравнивания потомков данного
элемента, они должны вызываться
в паре. Для восстановления выравнивания элементов в соответствии с
Align есть
метод:
procedure Realign; .
В следующем примере использование методов DisableAlign и
EnableAlign позволяет
настроить выравнивание панели (компонента TPanel) по тому краю
формы, на который
пользователь перетащит ее мышью.
Внешний вид приложения показан на рисунке 1:
Рис.1. Внешний вид приложения
Приведем текст модуля:
unit Un_Al;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
procedure FormCreate(Sender: TObject);
procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Moving: Boolean; //Флаг разрешения/запрещения перетаскивания.
implementation
{$R *.dfm}
//Задание начальных значений.
procedure TForm1.FormCreate(Sender: TObject);
begin
Panel1.Align := alBottom;//Выравнивание по умолчанию.
Moving := False;//Перетаскивания нет.
end;
//Начало перетаскивания.
procedure TForm1.Panel1MouseDown(Sender: TObject; Button:
TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if not Moving then
begin
Form1.DisableAlign; //Запретить выравнивание.
Moving := True; //Перетаскивание началось.
end;
end;
//Процесс перетаскивания.
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if Moving then
with Panel1 do
begin
//Вычисление новых координат панели.
Left := Left + X - Width div 2;
Top := Top + Y - Height div 2;
//Их вывод.
Panel1.Caption := Format('%d,%d',[Left, Top]);
end;
end;
//Завершение перетаскивания.
procedure TForm1.Panel1MouseUp(Sender: TObject;
Button:
TMouseButton; Shift: TShiftState; X, Y: Integer);
var
LastPos : TPoint;
r0, rl, r2 : real;
begin
if Moving then
begin
Moving := False;
Panel1.Caption := ' ';
//Вычисление новых координат.
LastPos := Point(Panel1.Left + X, Panel1.Top + Y) ;
if LastPos.X <= 0 then LastPos.X := 1;
if LastPos.X >= ClientWidth then
LastPos.X := ClientWidth-1;
if LastPos.Y<=0 then LastPos.Y := 1;
if LastPos.Y>=ClientHeight then
LastPos.Y := ClientHeight-1;
r0 := ClientWidth / ClientHeight;
rl := LastPos.X / LastPos.Y;
r2 := LastPos.X / (ClientHeight - LastPos.Y);
//Определение того, какое выравнивание задать панели.
with Panel1 do
if rl < r0 then
if r2 < r0 then Align := alLeft
else Align := alBottom
else if r2 < r0 then Align := alTop
else Align := alRight;
Form1.EnableAlign; //Включить выравнивание.
end;
end;
end.
Текст этого примера можно взять здесь.
На следующем шаге мы рассмотрим активность и видимость элементов
управления.
