Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Дана строка. Зашифровать ее, изменив код каждого символа на число N Дана строка. Зашифровать ее, изменив код каждого символа на число N. Ввод строки и числа n сделать через компоненты Edit. Заранее спасибо. https://www.cyberforum.ru/ delphi-beginners/ thread1387796.html Delphi Вставка Enter перед строкой
Добрый день! Проблема вот в чем: Имеется многострочный txt. Нужно: чтобы перед каждой строкой, в которой есть слово "asdf" или "qwer" ставил Enter. Причем слова эти могут быть и не в начале строки. Спасибо.
Delphi Как создать массив с десятичными числами? https://www.cyberforum.ru/ delphi-beginners/ thread1387771.html
Здравствуйте, помогите пожалуйста с создать массив с десятичными числами. Мне надо написать калькулятор, а я не знаю как сделать такой массив.:(:(:(
Delphi Таблица значений функции Здравствуйте, есть программа которая вычисляет и выводит в виде таблицы значения функции с Xmin, Xmax и на интервале dx. Проблема в том, что если выбрать интервал от 0,1 до 0,4, то в таблице где значение X должно дойти до 0, появляется совершенно другое число. procedure TForm2.Button1Click(Sender: TObject); var x1, x2, dx, y:extended; n,i:integer; begin x1:=strtofloat(edit1.text);... https://www.cyberforum.ru/ delphi-beginners/ thread1387762.html
Как обращаться к программно создаваемой форме Delphi
Подскажите пожалуйста. Есть код - создание формы: procedure TForm1.Button1Click(Sender: TObject); begin; Form2:= TForm2.Create(Application); Form2.Caption:= 'Новое сообщение'; form2.Show; end. Если несколько раз подряд нажимаем Button1 получаем несколько форм. Вопрос в следующем: как обращаться к этим формам ?
Delphi Написать приложение https://www.cyberforum.ru/ delphi-beginners/ thread1387733.html
На форму поместить во всю клиентскую область компонент TTabbedNoteBook, содержащий две страницы. На первой странице поместить компоненты Tmemo, TbitBtn и TopenDialog. Компонент TbitBtn должен иметь кроме текста пиктограмму для каждого состояния кнопки. При нажатии на кнопку TbitBtn нужно запускать диалог открытия текстового файла и поместить его содержимое в компонент Tmemo, при этом на...
Delphi 2 потока в одной программе https://www.cyberforum.ru/ delphi-beginners/ thread1387731.html
На форме есть 2 кнопки, и каждая из них должна работать в разных потоках, подскажите как реализовать. Я не очень в потоках разбираюсь, одна кнопка под потоком работает. а как второй сделать и синхронизировать.
Delphi Ошибка при удалении всех символов в строке
нужно проверить строку S если в строке первыми стоят нули ,то удалить их все использую процедуру Delete, но если строка состоит из одних нулей то при удалении последнего нуля из строки вылазит ошибка var s : String; begin s:= '000'; while s = '0' do Delete(s,1,1);//здесь ошибка
Delphi Узнать, какие процессы используют интернет https://www.cyberforum.ru/ delphi-beginners/ thread1387703.html
Как узнать какие приложения используют интернет, узнаю так: function RunDosInMemo(DosApp: String; CommandLine: String): String; const ReadBuffer = 2400; var Security : TSecurityAttributes; ReadPipe,WritePipe : THandle; start : TStartUpInfo; ProcessInformation : TProcessInformation; Buffer : PAnsichar;
Delphi Разработать программу, которая определяет и печатает все буквы, которые есть, и все цифры Задан символьный массив с малых латинских букв , цифр и круглых скобок , . Разработать программу , которая определяет и печатает все буквы , которые есть, и все цифры , которых нет между первой круглой дужкой, что открывается , и последней круглой дужкой , что закрывается . https://www.cyberforum.ru/ delphi-beginners/ thread1387686.html
Delphi Индексированные свойства
Всем привет! Дело обстоит так: два класса имеют поля типа array of TSomething. TFirst = class FirstClassField: array of TSomething; end; TSecond = class SecondClassField: array of TSomething; end;
Delphi Datamodule в DLL Здравствуйте. Прошу помочь с такой проблемой. Есть DLL с различными формами в каждой из которых происходит работа с отдельными таблицами из BD IB. И в этой же DLL делаю DataModule в котором находятся общие элементы для работы с BD: IBDatabse и IBQuery. В формах остается только DataSource. DLL вызывается нормально, формы открываются/закрываются. На этапе проектирования из любой формы можно... https://www.cyberforum.ru/ delphi-beginners/ thread1387656.html
0 / 0 / 0
Регистрация: 18.04.2013
Сообщений: 7
05.03.2015, 10:33  [ТС] 0

Работа с MainMenu. Как обратиться к программно созданному элементу меню? - Delphi - Ответ 7301773

05.03.2015, 10:33. Показов 14492. Ответов 6
Метки (Все метки)

Ответ

сначала хочу поблагодарить krapotkin за
Цитата Сообщение от krapotkin Посмотреть сообщение
либо наоборот, всем назначить один общий обработчик и проверять внутри
так же northener за
Цитата Сообщение от northener Посмотреть сообщение
Нет не так. В меню добавлялись новые элементы все три раза.
значит получается мне не обязателен массив...

и всё же Господа... осталась финишная черта...

вот код, который заново прописан(думал может где ошибся в наборе), где всё так же не отрабатывает обработчик событий.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N3: TMenuItem;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure N3Click(Sender: TObject);
    procedure MnClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  i: integer;
  Mn: TMenuItem;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject); // добавляется 3 НОВЫХ пункта меню
begin
  for i:=0 to 2 do begin
        Mn:=TMenuItem.Create(MainMenu1);
        Mn.Caption:=IntToStr(i);
        Mn.OnClick:=MnClick;
        mainmenu1.Items[0].Add(Mn);
  end;
end;
 
procedure TForm1.MnClick(Sender: TObject);  // не отрабатывает этот обработчик!!!
begin
  if (Sender as TMenuItem).caption='0' then begin
      edit1.Text:='!!!';
      beep;
  end;
  if (Sender as TMenuItem).caption='1' then begin
      edit2.Text:='!!!';
      beep;
  end;
  if (Sender as TMenuItem).caption='2' then begin
      edit3.Text:='!!!';
      beep;
  end;
end;
при просмотре работы программы по F8 выяснилось, что программа не заходит ни в одну проверку (IF).
в подтверждение того что не работате обработчик прикладываю исходник.
люди добрые!!! подскажите где у меня беда!?

Вернуться к обсуждению:
Работа с MainMenu. Как обратиться к программно созданному элементу меню? Delphi
Вложения
Тип файла: 7z test.7z (2.6 Кб, 15 просмотров)
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.03.2015, 10:33
Готовые ответы и решения:

Как обратиться к динамически созданному элементу?
Помогите пожалуйста, не могу реализовать одну функцию. На форме TrackBar, под ним, вряд,...

Как обратиться к подменю menuStrip, созданному программно на основе файлов?
Доброго времени суток! Создаю подменю пункта menuStrip на основе файлов в конкретной папке. Пункты...

Обратиться к только что созданному элементу
Приветствую, Так создаем кнопку: Button btn = new Button(); btn.Content = "Кнопка";...

Обратиться к динамически созданному элементу с другой формы
Всем привет! есть форма (form1). на ней динамически создан чекбокс Dim chbx As New CheckBox...

6
05.03.2015, 10:33
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.03.2015, 10:33
Помогаю со студенческими работами здесь

Обратиться к программно созданному Edit-у
Доброго времени суток. Подскажите, как обратиться к программно созданному едиту и веббраузеру на...

Как программно обратиться к выбранному элементу combobox?
мой код $('#Combobox_new_state').change(function() { var optionSelected = $("option:selected",...

Добавление события к программно созданному элементу управления
Доброго времени суток. Обращаюсь на форум с таким вопросом: к примеру у меня есть код на...

Как обратиться к созданному listView
Здравствуйте. Пишу программу, и столкнулся с такой проблемой: Создаю listView вот так: new...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru