Инструменты формы в Delphi - PullRequest
Новая
       16

Инструменты формы в Delphi

0 голосов
/ 22 мая 2011

Я сделал себе небольшую программу, как веб-браузер.Что я хочу сделать, как IE и большинство программ.Создайте вкладку в верхней части программы под названием tools, а затем где-то там есть Options.С этого момента мне нужно знать, что делать.Я хочу, чтобы появилось небольшое всплывающее меню, которое позволило бы мне заполнить домашнюю страницу, например, и возможно сделать большеДолжно ли это быть с новой формой или модулем в вашем приложении Delphi?

Что мне нужно знать, как я могу получить это всплывающее окно.Может быть, кто-то знает веб-сайт с некоторыми учебниками или рекомендациямиКлючевые слова, которые приведут меня в движение.Каждая программа имеет меню инструментов, которое позволяет им играть и чередовать переменные в программе.Это то, что я хочу сделать.Если вы думаете, что мне нужно объяснить больше.Пожалуйста, дайте мне знать!

С уважением ко всем

Ответы [ 2 ]

5 голосов
/ 22 мая 2011
  1. Создайте новую форму с помощью IDE.
  2. Установите эти свойства новой формы (с помощью IDE):
    • Name должно быть OptionsForm
    • BorderStyle должно быть bsDialog
    • Position должно быть poOwnerFormCenter
    • Caption должно быть 'Options'
  3. Удалите два TButton элемента управления в форме параметров.
    • Один из них должен иметь Caption := 'OK', Default := true, ModalResult := mrOk.
    • Другой должен иметь Caption := 'Cancel', Cancel := true, ModalResult := mrCancel.
  4. В основную форму добавьте кнопку.Установите Caption на 'Options'.
  5. Нажмите Alt + F11.Выберите единицу формы параметров (возможно, Unit2).
  6. Дважды нажмите кнопку, чтобы создать и отобразить ее обработчик OnClick.Здесь вы пишете 

with TOptionsForm.Create(nil) do
  try
    (* Write code here to update the controls on the options form
       so that they match the current settings. Example: *)
    Edit1.Text := Self.Caption;
    if ShowModal = mrOk then
    begin
      (* Write code to apply the new settings. Example: *)
      Self.Caption := Edit1.Text;
    end;
  finally
    free;
  end;
0 голосов
/ 22 мая 2011

это - первый результат от Google при поиске "delphi menu".Если я правильно понимаю, я думаю, что вы заинтересованы в компоненте TMainMenu.

...