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

Цитата:
Сообщение от hugolom
а как сделать чтоб вот допустим, навел мышь на рисунок и он выделился, я знаю что нужно несколько рисунков, там привыделение и щелчке, вот как только их поставить?
ну создай массив кнопок, отрисовывай каждую, и при движении мыши проверяй позицию курсора на вхождение в TRect кнопки, вошёл - MouseEnter, вышел - MouseLeave и в такой духе
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием