Помощь - Поиск - Пользователи - Календарь
Полная версия: Процедура не видит listBox. Что делать? - PascalABC.NET
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Free Pascal, Pascal ABC и другие
megakott
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);
procedure updatelist;
{$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;

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.

OCTAGRAM
procedure Form3.updatelist;
Гость
Цитата(OCTAGRAM @ 4.08.2017 14:31) *

procedure Form3.updatelist;



Перед листом поставь form3.
у тебя же по ходу внутренняя процедура в модуле, вот она и не видит лист
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.