Дельфи |
Здравствуйте, гость ( Вход | Регистрация )
Дельфи |
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. |
|
|
Текстовая версия | Сейчас: 6th January 2025 - 12:32 |