Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > GroupBox + sendmessage + Button

Автор: Jony 28.2.2006, 19:42

Вот с чем мучусь

1) sendmessage присобачить к картинке при наведении

2) кнопки, рисунки произвольной формы (например звёздочки, круглешки)

3) Фон и рамка GroupBox !!! <<<--- Очень надо !!! (Убрать, изменить)

И пожалуйста, как можно понятнее и подробнее ! smile

С П А С И Б О !

M
Girder

Читайте правила форума!
PS: Тема закрыта.

Автор: bems 28.2.2006, 20:27

Цитата(Jony @ 28.2.2006, 19:42

)

1) sendmessage присобачить к картинке при наведении

Цитата(Jony @ 28.2.2006, 19:42

)

2) кнопки, рисунки произвольной формы (например звёздочки, круглешки)

кнопки или рисунки произвольной формы?

Цитата(Jony @ 28.2.2006, 19:42

)

3) Фон и рамка GroupBox !!! <<<--- Очень надо !!! (Убрать, изменить)

можно даже убрать весь групбокс!!
Добавлено @ 20:28

Цитата(Jony @ 28.2.2006, 19:42

)

И пожалуйста, как можно понятнее и подробнее !

Вот-вот...

Автор: Guedda 28.2.2006, 21:41

Код


procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
begin
  SendMessage(); //послылаешь сообщение
end;

2) Поищи компоненты на torry.net
3) Убери GroupBox. И все...

Автор: Jony 1.3.2006, 13:37

1) У групБокса мне надо убрать рамку и заменить фон на собственный рисунок !!!

2) При наведении на Image нужно выводить месагу, при убирании скрывать !!!

3) кнопки и рисунки произвольной формы (например звёздочки, круглешки)!!!

Автор: Jony 1.3.2006, 17:00

ап
Добавлено @ 17:05
Guedda, [Error] Unit1.pas(30): Not enough actual parameters

Автор: Guedda 1.3.2006, 17:09

А ты что, все также, как я написал?
Параметры для SendMessage указать необходимо...
Но, я так смотрю, ты хочешь сообщение показать, тогда так:

Код


procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);    
begin    
  ShowMessage('Ура! Получилось!!!');    
end;