Ошибка: Failed to parse the Currency Converter XML document.
$43 150.41


Ошибка: Failed to parse the Currency Converter XML document.
$2 261.95


Ошибка: Failed to parse the Currency Converter XML document.
$1 928.31


Создание потомка от класса в Delphi

Для того, чтобы определить когда мышь над компонентом, в данном примере это будет панель, мы создадим новый класс, который будет являться потомком класса TPanel, и будет обрабатывать некоторые необходимые нам для данной задачи сообщения Windows.

Для этого определим следующим образом новый тип:

type
  TMyPanel = class(TPanel)
  public
    procedure CMMouseEnter (var message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave (var message: TMessage); message CM_MOUSELEAVE;
end;

Называться наш новый класс будет TMyPanel. Определить его можете до определение класса формы, т.е. сразу после директивы uses.


После объявления экземпляра формы нужно объявить экземпляр нашего нового класса:

var
  Form1: TForm1;
  MyPanel1: TMyPanel;

В разделе implemetation обрабатываем несколько сообщения, именно этими обработчиками наш класс и будет отличаться от класса стандартной панели.

procedure TMyPanel.CMMouseEnter (var message: TMessage);
begin
  Form1.Label1.Caption := «Мышь на панели»;
end;

procedure TMyPanel.CMMouseLEAVE (var message: TMessage);
begin
  Form1.Label1.Caption : =«Мышь вне панели»;
end;

По созданию окна создаём экземпляр нашего класса:

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyPanel1 := TMyPanel.Create(self);
  with MyPanel1 do
  begin
    Parent := Form1;
    Visible := true;
    Left := 100;
    Top := 100;
  end;
end;

По уничтожению окна, соответственно, — уничтожаем:

procedure TForm1.FormDestroy(Sender: TObject);
begin
  MyPanel1.Destroy;
end;

 

Интересное

Flash-технология. Недостатки
Прежде, чем применять Flash на сайте, нужно семь раз отмерить. Оказывается, не все знают, что это такое. Одни применяют Flash от необходимости, другие — от незнания.Дело в том, что Flash — это не...
Подробнее...
Что выбрать: Vista x86 или...
Многие пользователи задают и себе и нам вопрос, какую редакцию Windows Vista выбрать: 32-битную или 64-битную? Что ж, попытаемся ответить на данный вопрос и определить плюсы и минусы каждого...
Подробнее...
Угон и защита icq уинов
Если хочется 8-ми значный uin... Хотя нет. Пожалуй 7-ми значный... Или 6-ти ;-) Вообщем если не важен номер, а важно только количество знаков в номере то это самый реальный способ.Внизу есть...
Подробнее...
10 способов проверки среды...
Служба Каталогов (Active Directory Services) — действующий стандарт для инициализации учётных записей, базового системного управления и DNS-идентификации в большинстве сред. Ведение отчётности...
Подробнее...
Антивирус - религия?
Представители «комплексной защиты» забывают добавить, что защищен не от всего и не всегда. И защищен только тот, кто сможет их продукт настроить должным образом. Почемуто считается, что если...
Подробнее...
Безопасность Windows XP SP3
Реальность такова, что не все организации перешли на использование Windows Vista. С выпуском Windows XP (начатым в 2001, и данная ОС все еще продается) компания Microsoft выпустила третий пакет...
Подробнее...
Настраиваем Apache - FAQ...
В: Что такое Apache и зачем он нужен?О: Apache — это web-сервер, один из наиболее распространенных, безопасных и удобных во всем мире. Если вы создаете свой динамичный сайт с использованием языков...
Подробнее...
Синтетическое резервное...
Количество данных на предприятиях, больших и малых, с годами растет в геометрической прогрессии. Защита данных становится очень сложной задачей, а требования доступности растут с каждым днем....
Подробнее...
Уменьшение Windows XP
Я обратил внимание, что Windows XP занимает очень много места на винчестере. Причем этот размер постоянно увеличивается. Не хотелось бы только из-за этого покупать новый жесткий диск.Чтобы...
Подробнее...
Не выбрасывайте вещи в...
Случалось ли у вас такое, что открывая платяной шкаф, вы с ужасом понимали, что новые вещи положить уже некуда? Знакомая ситуация, не правда ли?Находясь в подобной ситуации, я как-то раз решила...
Подробнее...