VPF::GroupBox + sendmessage + Button - Форум программистов

Jony

Дата 28.2.2006, 19:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 28.2.2006

Репутация: нет
Всего: нет

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

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

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

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

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

С П А С И Б О !

M
Girder

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

bems

Дата 28.2.2006, 20:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Цитата(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

)

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

Вот-вот...

--------------------

Обижено школьников: 8

Guedda

Дата 28.2.2006, 21:41 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Код


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

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

--------------------

Ll 2

Jony

Дата 1.3.2006, 13:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 28.2.2006

Репутация: нет
Всего: нет

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

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

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

Jony

Дата 1.3.2006, 17:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 28.2.2006

Репутация: нет
Всего: нет

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

Guedda

Дата 1.3.2006, 17:09 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

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

Код


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

--------------------

Ll 2

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »