Здравствуйте, гость ( Вход | Регистрация )
Apr 26 2006, 19:13
Сообщение
#1
|
|
|
Member ![]() ![]() Группа: Members Сообщений: 52 Регистрация: 2.1.2006 Пользователь №: 29053 |
Как в Дельфи сделать такое:
1. Мне надо, что бы кнопка Button1 имела вид картинки(я делал через кнопку BitBtn1, но не получалось растенуть рисунок) 2. Что бы при наведении курсора на кнопку Button1 она преобретала другой вид, т.е. изменялся риссунок кнопки 3. При нажатии на кнопку Button1 появлялся текст в Edit1 или в Memo1, или (крайний случай) в Label1 4. При нажатии на кнопку Button2 открывалась конкретная папка на диске С: 5. При нажатии на кнопку Button3 открывалось другое окно программы 6. И может ли формат картинки, которая "налезает" на кнопку, быть в JPG? 7.Можно ли сделать так, что бы не было верхней виндовской панельки(свернуть, развернуть и закрыть окно) (IMG:http://img56.imageshack.us/img56/4639/xxx8vg.th.gif) |
|
|
|
![]() |
Apr 26 2006, 20:44
Сообщение
#2
|
|
|
Junior Member ![]() Группа: Members Сообщений: 42 Регистрация: 24.12.2005 Пользователь №: 29039 |
1. Проще тогда уж сделать вовсе без кнопки. Пользуйся лишь картинками - красиво, ровно и разницы никто не заметит.
2. Я так понимаю этот вопрос непосредственно связан с первым. Значит так... Бросай на форму компонент Image1. Теперь создай событие OnCreat формы. В обработчике событий пиши: Image1.Picture.LoadFromFile('1.jpg'); // ну допустим что твоя картинка кнопы называется 1.jpg То есть как ты уже понял при запуске мы увидим на месте компонента Image1 - 1.jpg Далее создай событие OnMouseMove, но уже для компонента Image1. Это как раз для того чтобы при наведении менялся вид "кнопки". В обработчике пиши: Image1.Picture.LoadFromFile('2.jpg'); // 2.jpg - картинка кнопы при её нажатии 3. Значит если всё таки используешь картинки, создай событие OnClick для всё того же Image1. В нём должно быть: Edit1.Text := 'ЗДЕСЬ ТВОЙ ТЕКСТ'; 4. Сразу в Uses пропиши модуль ShellAPI. Теперь опять создай событие OnClick для Image или Button - в зависимости что ты там для себя выбрал. Вставляй туда следующий код: ShellExecute(Handle,'explore','C:МОЯ_ПАПА',nil,nil,SW_RESTORE); 5. Создай для этого дела новую форму. Команда: File -> New -> Form. В событии OnCreat формы добавь: Form2.Visible:=False; // Это чтобы новоиспечённое окно не выскакивало сразу при запуске. И вновь создаёшь событие OnClick, но уже для третьей кнопки. А там должно быть вот что: Form2.Visible:=True; // Делаем окно видимым при нажатии... 6. Наверное, винду переустановил - возможности проверить пока нету.. 7. Да, для этого в свойствах формы найди BorderStyle и установи значение bsNone. |
|
|
|
GeK Дельфи Apr 26 2006, 19:13
GeK AngryCoder, огромное человеческое СПОСИБО
ты мне о... May 3 2006, 15:55
AngryCoder 1. Как я уже говорил здесь тебе поможет функция Sh... May 4 2006, 08:18
GeK AngryCoder
Огромное тебе спосибо
если будет вопр... May 6 2006, 10:51
GeK когда я сделал все как ты сказал по созданию проиг... May 6 2006, 14:27
AngryCoder Нащёт MP3 - формата скажу, что у Delphi (7-версии)... May 6 2006, 22:39
GeK и есче раз СПОСИБО,
у меня дельфя шестая, как там... May 13 2006, 12:23
Alder Цитата(AngryCoder)6. Здесь вариантов множество, но... May 15 2006, 11:40
GREY-SPB Ну раз тема про дельфи, можно сюда моё.
Я ужасный ... May 15 2006, 18:03
Alder GREY-SPB,окошко пустое потому что ты никаких компо... May 16 2006, 00:18
.::Gh0st::. щас собираюсь для саморазвития осваивать дельфи, т... May 16 2006, 18:32
Alder .::Gh0st::.,8 есть,заточенная под .NET.Если тебе э... May 17 2006, 01:26
GeK 1как сделать, что бы плеер мог воспоизвести нескол... Jun 14 2006, 10:05![]() ![]() |
| Текстовая версия | Сейчас: 30th October 2025 - 08:13 |