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


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


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


Создание потомка от класса в 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 XP предоставляет больше возможностей по оптимизации памяти, нежели Windows 2000. Вместе с тем, она и требует больше свободных ресурсов. Данная статья поможет вам настроить вашу систему для...
Подробнее...
Визуальный редактор для...
Наверно мой уважаемый читатель не раз сталкивался с ситуацией, когда конечный веб-проект ориентировался не на узкий круг веб-программистов или людей «введенных» в систему, а...
Подробнее...
Эволюция 3D-графики в...
Воспроизведение видео и трехмерные игры — очень ресурсоемкие задачи для мобильного телефона, поэтому до недавнего времени они были трудно реализуемы. Но прогресс не стоит на месте, и в портативных...
Подробнее...
Работа с Cookies на PHP
Откуда возник термин «cookie» никто достоверно не знает, хотя считается, что во времена зарождения Unix-систем где-то использовалось словосочетание Magic Cookies. Имелись в виду...
Подробнее...
Первый прикол на Дельфи....
Привет читатель. Для написания прог-приколов тебе понадобиться комп, Delphi 6 (7 или выше) и руки, желательно прямые. 1 прикол: Голодный CD-Rom Щёлкни мыщью 2 раза по форме и там пиши...
Подробнее...
Раскрутка это еще и заработок
Странно. Но многие вебмастера разделяют понятия раскрутка и заработок. Т.е. все понимают, что если ресурс будет раскручен, с него можно будет и деньги получить.Но вот, к сожалению, почему-то почти...
Подробнее...
Система X Window
Система X Window представляет собой графическую оболочку для операционных систем семейства Unix.Топологически X Window состоит из двух частей: это Х-сервер и Х-клиент.Х-сервер — это программа...
Подробнее...
Ну сколько уж можно...
Можно ли операционную систему не переустанавливать по несколько раз в месяц?Мое однозначное мнение: операционную систему можно не переустанавливать по несольку раз в месяц, и это я собираюсь...
Подробнее...
Что делать если Windows XP...
Переход с Windows XP на Windows Vista довольно медленный процесс, особенно когда пользователь любопытен, но в то же время нерешителен. Не все убеждены в том, что новая ОС имеет функции, ради...
Подробнее...
Создание разделов на...
Большой объем винчестера — это здорово, но в этом же заключается и его самый главный недостаток. Со временем в процессе чтения и записи Windows разбрасывает по всему пространству жесткого диска...
Подробнее...