[lecram]

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;

[beavi5]

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 картинкой поди тоже самое

[lecram]

Сообщение от beavi5

c картинкой поди тоже самое

я сделал проще. вместо кнопки с картинкой, поставил просто картинку))

[beavi5]

хозяин барин.. .)

[lecram]

мм. вот еще вопрос. добавил медиаплеер, выбрал трек, но как сделать, чтоб он при нажатии play воспроизводил песни из корневой папки и переключал их при нажатии соответствующих кнопок?

[Bars1992]

Точно не знаю может у плеера есть какието функции по открытию файлов с корневой папки но я бы делал бы так.

Код:

 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;