Тема: как сделать свой внешний интерфейс окна?
Показать сообщение отдельно
  #3  
Старый 26.04.2010, 11:33
Аватар для AleD
AleD AleD вне форума
Активный
  
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию
обрабатывать сообщение WM_NCPAINT и рисовать свою шапку и всё что нужно, обрабатывать WM_NCMOUSEDOWN, WM_NCMOUSEMOVE, WM_NCMOUSEUP... и другие сообщения начинающиеся на WM_NC, это сообщения для неклиентской части окна
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием