Показать сообщение отдельно
  #2  
Старый 15.03.2009, 14:34
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

Отслеживай действие OnMouseMove по форме, если PointInRect(X,Y) то копируем Rect со светлой облостью со второго изображения. Я незнаю как оптимизировать этот процесс, потому как мышь перемещаясь вызывает много раз проверку, хотя возможно запихать код в отдельный поток. У мну где то был такйже проект (тоже манька новаым двигом обложки побудила) есль найду то выложу, но там он не доделаный
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием