|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
2 вопроса новичка.
1)как сделать, чтобы при невидимом label1, при наведении курсором он появлялся и исчезал соответственно при снятии курсора
2)код для кнопки с картинкой, которая при наведении меняется. image1 - незаданый идентификатор. как его указать правильно? Код:
procedure TForm1.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if (X>=image1.Left))and(Y>=image1.Top)and(X<=image1.Left+image1.Width)and(Y<=image1.Top+image1.Height) then image1.Picture.LoadFromFile('C:\2.bmp') else image1.Picture.LoadFromFile('C:\1.bmp'); end; |
#2
|
|||
|
|||
1) как сделать через visible незнаю, но можно сделать через caption. Т.е. при навидении мышки на зону метки меняем ее текст, при покидании зоны о6нуляем текст. Только нужно AutoSize в False поставить;
Код:
procedure TForm4.Label1MouseEnter(Sender: TObject); begin label1.Caption:='aaaa'; end; procedure TForm4.Label1MouseLeave(Sender: TObject); begin label1.Caption:=''; end; c картинкой поди тоже самое Последний раз редактировалось beavi5, 23.04.2010 в 19:09. |
#3
|
|||
|
|||
Цитата:
|
#4
|
|||
|
|||
хозяин барин.. .)
|
#5
|
|||
|
|||
мм. вот еще вопрос. добавил медиаплеер, выбрал трек, но как сделать, чтоб он при нажатии play воспроизводил песни из корневой папки и переключал их при нажатии соответствующих кнопок?
|
#6
|
||||
|
||||
Точно не знаю может у плеера есть какието функции по открытию файлов с корневой папки но я бы делал бы так.
Код:
var searchResult : TSearchRec; begin // Пробуем найти правильные файлы в текущем каталоге, соответствующие шаблону *.mp3 if FindFirst('*.mp3', faAnyFile, searchResult) = 0 then begin repeat //searchResult.Name это имя найденого файла. можешь добавлять все //имена в какой то список ComboBox или чтото на подобе это как // тебе удобней Combobox1.lines.add(searchResult.Name); ShowMessage('Размер файла = '+IntToStr(searchResult.Size)); until FindNext(searchResult) <> 0; // Должен освободить ресурсы, используемые этими успешными, поисками FindClose(searchResult); end; end; А потом по изменению имени открывать файл с текущей папки Код:
MediaPlayer1.file:=GetCurrentDir+'\'+FileName; MediaPlayer1.open; MediaPlayer1.play; Последний раз редактировалось Bars1992, 24.04.2010 в 20:10. |