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


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


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


Создание потомка от класса в 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;

 

Интересное

Windows PowerShell: Отчет...
Недавно мне пришлось писать довольно длинный и замысловатый сценарий Windows PowerShell, который в ходе работы начал довольно плохо отвечать на запросы. Я написал его для выполнения в качестве...
Подробнее...
Чистка Windows
Рано или поздно практически каждый пользователь Windows замечает, как установленная когда-то «с нуля» система начинает неуклонно сдавать позиции, теряя остатки молодецкого задора: загружается с...
Подробнее...
10 способов...
Некоторые люди утверждают, что хорошо работают в высоко-стрессовом окружении. Я не один из них. Когда я расслаблен, моя производительность наиболее высока. Если передо мной стоят задачи, которые...
Подробнее...
Защита формы паролем
Логично, что перед запуском формы, которую мы хотим защитить, надо запросить у пользователя пароль (можно конечно и комбинацию имя пользователя — пароль, но мы рассмотрим на примере только...
Подробнее...
Установка межсетевого...
Чтобы придать сетевому узлу достаточную степень надежности, установите одну из доступных и свободно распространяемых программ, известных под названием файрволов. А для подстраховки не мешало бы...
Подробнее...
Оптимизация памяти в...
Windows XP предоставляет больше возможностей по оптимизации памяти, нежели Windows 2000. Вместе с тем, она и требует больше свободных ресурсов. Данная статья поможет вам настроить вашу систему для...
Подробнее...
Шаги по увеличению...
Этот документ является списком параметров защиты для применения на FreeBSD серверах.Существует огромное количество статей, обзоров и инструкций в которых описаны методы защиты вашей FreeBSD...
Подробнее...
25 советов как ускорить...
Цель нижеописанных советов избавить установленную Windows XP Pro Russian от совершенно ненужных для домашнего пользователя украшательств и ускорить в целом работу системы. Эти 25 советов, только...
Подробнее...
Oпасное возвращение червя...
RogueMario.A — это червь, который демонстрирует базовую версию широко известной игры Super Mario. Он делает это для того, чтобы скрыть свою вредоносную деятельность. «Представьте, что...
Подробнее...
Что такое CSS
Обычный HTML позволяет задавать цвет и размер текста с помощью тегов форматирования. Если понадобится изменить параметры однотипных элементов на сайте, придется просматривать все страницы, чтобы...
Подробнее...