ActionToolBar и раскрывающийся список. Позиция курсора. Имя файла. (Delphi 7)

[munthrekosh]

1. Нужно сделать раскрывающийся список на ActionToolBar примерно как здесь :
   .
   Порыскал в иннете, почитал справку, помурыжил вкладки компонентов, но ничего путного не нашёл... Так что вся надежда на вас форумчане.
   
2. Требуется вывести позицию курсора из RichEdit на StatusBar. Написал код
   

   StatusBar1.Panels[1].text:=IntToStr(RichEdit1.CaretPos.Y+1)+' : '+IntToStr(RichEdit1.CaretPos.X+1);

   . И накинул его на
   

   procedure TForm1.Timer1Timer(Sender: TObject);

   . Всё работает, но мне не нравится. Может кто знает событие получше?
   
3. Необходимо вывести имя файла в Form.Caption. При не сохраненном и не загруженном файле должно быть "Безымянный". А иначе имя загруженного\сохраненного файла. Написал следующее:
   

   procedure TForm1.FileOpen1Accept(Sender: TObject);
   begin
     RichEdit1.Lines.LoadFromFile(FileOpen1.Dialog.FileName);
     Form1.Caption:=FileOpen1.Dialog.FileName;
   end;
   
   procedure TForm1.FileSaveAs1Accept(Sender: TObject);
   begin
     RichEdit1.Lines.SaveToFile(FileSaveAs1.Dialog.FileName);
     Form1.Caption:=FileSaveAs1.Dialog.FileName;
   end;
   
   procedure TForm1.FormCreate(Sender: TObject);
   begin
     Form1.Caption:='Безымянный';
   end;

   .
   Работает, но при использовании FileSaveAs1.Dialog.FileName и FileOpen1.Dialog.FileName, выводится полное имя файла (путь+имя), а мне не нужно что бы отображался путь. Как это исправить?

[denisbrain]

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

1. Работает, но при использовании FileSaveAs1.Dialog.FileName и FileOpen1.Dialog.FileName, выводится полное имя файла (путь+имя), а мне не нужно что бы отображался путь. Как это исправить?

2.
StatusBar1.Panels[1].text:=IntToStr(RichEdit1.CaretPos. Y+1)+' : '+IntToStr(RichEdit1.CaretPos.X+1);
воткни его в
RichEdit1Change
RichEdit1KeyDown
RichEdit1MouseDown

3.

var
  fullFileName : string;

begin
  // Установка полного имени файла с диском и путем
  fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu';

  // Показ составляющих частей этого полного имени
  ShowMessage('Диск       = '+ExtractFileDrive (fullFileName));
  ShowMessage('Каталог    = '+ExtractFileDir   (fullFileName));
  ShowMessage('Путь       = '+ExtractFilePath  (fullFileName));
  ShowMessage('Имя        = '+ExtractFileName  (fullFileName));
  ShowMessage('Расширение = '+ExtractFileExt   (fullFileName));
end;
// как вариант  имя файла без расширения 

Function GetFileNameC(s:string):string;
  var s2,s1:string;
  x:integer;
begin
  s2:='';
  s1:=ExtractFileName(s);
  for x:=1 to length(s1) do begin
    if s1[x]='.' then begin result:=s2; exit; end
    else s2:=s2+s1[x];
  end;
end;

[munthrekosh]

denisbrain
Мне не нужно полное имя
а за

StatusBar1.Panels[1].text:=IntToStr(RichEdit1.CaretPos. Y+1)+' : '+IntToStr(RichEdit1.CaretPos.X+1);
воткни его в
RichEdit1Change
RichEdit1KeyDown
RichEdit1MouseDown

Спасибо

[Прик]

1. Каждая акция на TActionToolBar представлена классом TActionClients.
В свою очередь, у TActionClients есть свойство Items (тоже TActionClients).
После вставки элементов в список Items у кнопки на TActionToolBar появляется треугольник, показывающий что есть вложенные элементы.
В конечном итоге, получается как на рисунке. Во всяком случае, похоже.

[munthrekosh]

А трельгольничка всё нет

denisbrain, а ты мне всётаки помог с именнем. такой код был излишен но вот что я оттуда извлёк.

procedure TForm1.FileOpen1Accept(Sender: TObject);
begin
  RichEdit1.Lines.LoadFromFile(FileOpen1.Dialog.FileName);
  Form1.Caption:=ExtractFileName(FileOpen1.Dialog.FileName);
end;

procedure TForm1.FileSaveAs1Accept(Sender: TObject);
begin
  RichEdit1.Lines.SaveToFile(FileSaveAs1.Dialog.FileName);
  Form1.Caption:=ExtractFileName(FileSaveAs1.Dialog.FileName);
  RichEdit1.Modified:=False;
end;

Спасибо

[munthrekosh]

Так всё таки как сделать раскрывающийся список?

[Прик]

Показываю на картинках.

[munthrekosh]

Нет, Прик, это не то что нужно.

[OlegPrograming5]

Прик, я воспользовался вашим советом и, если у Action3 есть картинка, но нет заголовка (Caption), то при наведении мыши на пункт картинка исчезает. Интересно, почему? (Delphi7)