|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.02.2010, 10:15 | #1 |
Пользователь
Регистрация: 22.02.2010
Сообщений: 60
|
Кнопка из картинок
Я сделал 3 картинки (обычное состояние, при наведении и нажатии). Прописал вот так:
procedure TForm1.Image1Click(Sender: TObject); begin Image1.Picture.LoadFromFile('3.png' ); //эта картинка не срабатывает end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image1.Picture.LoadFromFile('2.png' ); end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image1.Picture.LoadFromFile('1.png' ); end; procedure TForm1.FormCreate(Sender: TObject); begin Image1.Picture.LoadFromFile('1.png' ); end; при движении курсора мыши идет постоянное мерцание картинки не подскажете как сделать чтобы все было гладко)) |
28.02.2010, 10:19 | #2 |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
Прекратите извращаться над изображениями! При создании формы загрузите их в TBitMap и рисуйте его.
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ |
28.02.2010, 10:24 | #3 |
Пользователь
Регистрация: 22.02.2010
Сообщений: 60
|
а поподробнее можно...?
|
28.02.2010, 10:26 | #4 |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
Поиск по форуму никто не отменял.
Код:
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ |
28.02.2010, 10:29 | #5 |
Участник клубаДжуниор
Регистрация: 23.08.2008
Сообщений: 1,616
|
Ваша картинка и не будет видна, т.к. при нажатии на неё сразу происходит событие onmousemove. Так что вместо onclick используйте onmousedown.
pushl $0x18E3DF6B
call ICQ |
28.02.2010, 10:34 | #6 |
Пользователь
Регистрация: 22.02.2010
Сообщений: 60
|
#Var
Bit:TBitMap; Begin Bit:=TBitMap.Create; -ошибка в этой строке(( Bit.LoadFromFile(bla-bla-bla); Image1.Canvas.Draw(0,0,Bit); ... TForm1.OnDestroy: Bit.Free; |
28.02.2010, 13:54 | #7 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Только что подробно рассказывал:
http://www.programmersforum.ru/showthread.php?t=85453 |
28.02.2010, 14:17 | #8 |
Форумчанин
Регистрация: 31.10.2008
Сообщений: 215
|
Можно ловить сообщения от мышки. См. пример.
В тему: http://programmersforum.ru/showthread.php?t=43567 Спасибо mihali4
[Ferox]
|
17.03.2010, 00:01 | #9 |
Пользователь
Регистрация: 23.07.2009
Сообщений: 22
|
Var
Prpage:integer; procedure TStartPage.lang2Click(Sender: TObject); begin Prpage:=7; lang2.Picture.LoadFromFile('Picture \United-Kingdom1.png'); TimerDown.Enabled:=true; end;//lang2-картинка procedure TStartPage.TimerDownTimer(Sender: TObject); begin ... if Prpage=7 then begin lang2.Picture.LoadFromFile('Picture \United-Kingdom.png'); end; ... TimerDown.Enabled:=false; TimerUp.Enabled:=True; end; по TimerUp выполняем действие) просто и красиво Ну а красоту сам наведешь) мигать не должно(у меня небыло проблемы) только с наведением мыши не помогу... пальцевый интерфейс Последний раз редактировалось bazanin; 17.03.2010 в 00:07. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Убегающая кнопка... | PIKA4Y | Microsoft Office Excel | 1 | 02.02.2010 15:43 |
кнопка Windows | One.Love | Общие вопросы Delphi | 5 | 12.09.2008 14:56 |
Вогнутая кнопка | John_chek | Общие вопросы Delphi | 5 | 20.11.2007 14:21 |
Кнопка Пуск | vitalik007 | Win Api | 9 | 05.09.2007 08:20 |