[robt]

Сообщение от Pyro

кстати сам по себе такой код совсем не говнокод, а unixway раз, два
если захочется оптимизировать, можно переопределить LoadFromFile, что бы кэшировал изображения и всё

unixway твой, порочная философия,изобличенная еще в начале 90х являющаясе первым смертным грехом програмиста
например к нейже можно отнести неиспользование проверок на ошибки

а для оптимизации в данном коде достаточно ввести одну булеву переменную

[M.A.D.M.A.N.]

Чо шумишь, у нас в проекте такое нередко попадается, притом писалось мужыками с ВО (профессианалими программирования на поцкале).

[ChinYan]

Короче, резюмируя. Это форум не только для бородатых мегагуру, которые взглядом правого глаза перегружают методы, взглядом левого проводят такой рефакторинг, что дядюшка Фаулер умиляется, а пристальным взглядом обоих глаз применяют шаблоны заставляя GoF нервно хихикать, осознавая собственную ничтожность (а о том, что творится с беднягой Влессидесом вообще упоминать не стоит).
Складывается такое впечатление, что г-н robt приходит на форум не для того, что бы помочь (или попросить помощи), а что бы доказать всем, какой он раскрутой мегаспец (хотя я что-то не припомню, что бы он очень уж часто высказывал какие-то мысли насчет вопроса, он чаще критикует демонстрируемое решение и вступает в перепалки). Готов спорить, что в следующем своем посте он выскажет все что думает и о Фаулере и о GoF, просто потому что нужно что-то сказать.
Кстати, топикстартер не появляется уже давно. Как вы думаете, это из-за того, что решение нашлось или еще почему-то?

[NumLock]

Код:

type
  TButton = class(StdCtrls.TButton)
  private
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
...
{ TButton }

procedure TButton.CMMouseEnter(var Message: TMessage);
begin
  Form1.Image1.Picture.LoadFromFile('2.bmp');
end;

procedure TButton.CMMouseLeave(var Message: TMessage);
begin
  Form1.Image1.Picture.LoadFromFile('1.bmp');
end;

http://data.cod.ru/152238