Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.08.2017, 16:49   #1
megakott
Новичок
Джуниор
 
Регистрация: 02.08.2017
Сообщений: 1
По умолчанию Процедура не видит listBox, что делать? - PascalABC.NET

Код:
Unit a3;
 
interface
 
uses System, System.Drawing, System.Windows.Forms, addaccount, param;
 
type
  Form3 = class(Form)
    procedure tabPage1_Click(sender: Object; e: EventArgs);
    procedure listBox1_SelectedIndexChanged(sender: Object; e: EventArgs);
    procedure button1_Click(sender: Object; e: EventArgs);
    procedure button2_Click(sender: Object; e: EventArgs);
    procedure button3_Click(sender: Object; e: EventArgs);
    procedure button4_Click(sender: Object; e: EventArgs);
    procedure button5_Click(sender: Object; e: EventArgs);
  {$region FormDesigner}
  private
    {$resource a3.Form3.resources}
    tabPage4: TabPage;
    tabPage2: TabPage;
    tabPage1: TabPage;
    button5: Button;
    button4: Button;
    button3: Button;
    button2: Button;
    button1: Button;
    groupBox2: GroupBox;
    label6: &Label;
    label5: &Label;
    label4: &Label;
    label3: &Label;
    label2: &Label;
    label1: &Label;
    groupBox1: GroupBox;
    listBox1: ListBox;
    tabControl1: TabControl;
    {$include a3.Form3.inc}
  {$endregion FormDesigner}
  public
    constructor;
    begin
      InitializeComponent;
    end;
  end;
  
procedure updatelist;
 
implementation
 
procedure Form3.tabPage1_Click(sender: Object; e: EventArgs);
begin
  
end;
 
procedure Form3.listBox1_SelectedIndexChanged(sender: Object; e: EventArgs);
begin
  
end;
 
procedure Form3.button1_Click(sender: Object; e: EventArgs);
begin
  Form(new Form2).show;
end;
 
procedure Form3.button2_Click(sender: Object; e: EventArgs);
begin
  
end;
 
procedure Form3.button3_Click(sender: Object; e: EventArgs);
begin
  
end;
 
procedure Form3.button4_Click(sender: Object; e: EventArgs);
begin
  
end;
 
procedure Form3.button5_Click(sender: Object; e: EventArgs);
begin
  
end;
 
procedure updatelist;
begin
  for var uli := 1 to param.channelcount do listBox1.Items.Add(param.chname[uli]); //выдаёт ошибку: Неизвестное имя 'listBox1'
end;
 
end.
megakott вне форума Ответить с цитированием
Старый 02.08.2017, 17:16   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Она и не должна. Либо процедуру запихивать в класс, либо листбокс делать паблик и обращаться через объект к нему.
p51x вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Windows 7 не видит HDD, с WinXP всё работает. С такой проблемой уже 2 компа, что делать? TSlav Windows 8 26.08.2014 08:21
Вывести данные в виде колонок ListBox PascalABC.net Konstantin1706 Помощь студентам 1 22.12.2012 20:57
что делать если флэшку не видит комп... Васильева Зинаида Компьютерное железо 4 21.11.2010 01:14
Процедура с C# на PascalABC.NET(можно просто на язык Pascal) EMILSKI Помощь студентам 1 14.11.2010 17:39
процедура, которая будет что-то делать пока зажата клавиша пробел. Porkman Паскаль, Turbo Pascal, PascalABC.NET 4 14.12.2008 03:37