Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 2
Всего онлайн: 2
Зарегистрировано юзеров: 7113
Комментариев на сайте: 657
Новый юзер: Babeserdoosurf



Последние комментарии
c
YonqDox прокомментировал "Урок 53 - Потоки в Delphi, (часть 1/3)":
[url=https://clck.ru/DwfTp]Лучший Хакерский сайт "Творческая Лаборатория DedicateT"[/url]
Paulineodods прокомментировал "Урок 53 - Потоки в Delphi, (часть 1/3)":
Всем добрый день Заказывала вот такую модель смартфона на сайте https://sale-aliexpress.ru . Продавец проявил инициативу и сам отправил с помощью DHL потом еще у DHL какой то сбой прошел . так продавец еще интересовался отписывался получила я или нет. В придачу положил рыбку для наушников (чтобы провода не запутывались))) и стилус. Короче мне повезло с продавцом и покупкой. Очень [url=https://sale-aliexpress.ru] рекомендую данный сайт .

Как нарисовать рамку фокуса

Для того, чтобы создать более дружественный интерфейс, можно рисовать рамку фокуса вокруг активного компонента. Для этой цели идеально подходит объект TShape, который представляет собой геометрическую фигуру, которая может быть помещена на форму. Каждый раз, когда компонент находится в фокусе, мы будем перемещать объект TShape в его местоположение.

Как нарисовать рамку фокуса вокруг активного компонента Для начала нужно создать объект TShape в событии OnCreate формы и придать ему свойства:

uses
    { ... }, ExtCtrls;
	
var
  Form1: TForm1;
  focusRect: TShape;

{ ... }

procedure TForm1.FormCreate(Sender: TObject);
begin
  focusRect := TShape.Create(self) ;
  focusRect.Shape := stRectangle;
  focusRect.Visible := false;
  focusRect.Brush.Style := bsClear;
  focusRect.Pen.Style := psDot;
  focusRect.Pen.Color := clRed;
  focusRect.Pen.Width := 1;

  Screen.OnActiveControlChange:= ActiveControlChange;
end;
Примечание: переменная focusRect типа TShape объявляется в объявлении переменной формы. Теперь, когда фокус переходит от одного управления к другому, мы также передвигаем рамку фокуса.

Мы будем использовать процедуру ActiveControlChange, обрабатывая событие OnActiveControlChange глобального объекта Screen.
  private
    { Private declarations }
    procedure ActiveControlChange(Sender: TObject);
	
{ ... }

procedure TForm1.ActiveControlChange(Sender: TObject);
begin
with focusRect do
 begin
    Parent := Screen.ActiveControl.Parent;

    Top := Screen.ActiveControl.Top - 2;
    Height := Screen.ActiveControl.Height + 4;
    Left := Screen.ActiveControl.Left - 2;
    Width := Screen.ActiveControl.Width + 4;

    Visible := true;
   end;
end;
Размеры объекта focusRect подстраиваются под размеры активного управления, как мы и написали выше в коде.

Ну и наконец, нужно освободить память при закрытии приложения. Никогда не забывайте делать это!
procedure TForm1.FormDestroy(Sender: TObject);
begin
  Screen.OnActiveControlChange:= nil;
  focusRect.Free;
end;

Вот и всё, Удачи!

Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 23 Июня 2014
Просмотров:


Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.



аватар Добавил(а): Sancho [Новичок] Дата: 2014-06-29
Источник: www.thedelphi.ru Автор: Савельев Александр Опубликовано: 22 Июля 2014-------------------->ИЮЛЬ ЕЩЕ НЕ НАСТАЛ!!!!!!-----------))))))))))))) Просмотров: 7966




аватар Добавил: Admin [Сэнсэй] vk.com/savelev_a_y Дата: 2014-07-06
Sancho, спасибо, исправил ошибку