Тема
:
XPman или "красивые кнопки"
Показать сообщение отдельно
#
10
21.11.2012, 09:28
NumLock
Let Me Show You
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация:
59586
-установи у фоновой Image свойство Visible в False
-создай обработчик события OnPaint у формы:
Код:
procedure TForm1.FormPaint(Sender: TObject); begin Canvas.Draw(0, 0, Image1.Picture.Graphic); end;
__________________
Пишу программы за еду.
__________________
NumLock
Посмотреть профиль
Отправить персональное сообщение для NumLock
Найти все сообщения от NumLock