Вылетаю на строчке form1.TabControl1

← →
=Sniper= (2004-08-08 00:20) [0]

Что не так?

← →
nsvi (2004-08-08 07:04) [1]

TC: TKOLTabControl;
TC_Tab0: TKOLPanel;
TC_Tab1: TKOLPanel;
TC_Tab2: TKOLPanel;
...................
Form1.TC.TC_Items[0]:="Smth1";
Form1.TC.TC_Items[1]:="Smth2";
Form1.TC.TC_Items[2]:="Smth3";

← →
Vladimir Kladov (2004-08-08 11:23) [2]

procedure TForm1.KOLForm1FormCreate(Sender: PObj);
begin
TabControl1.TC_Items[0]:="Smth1";
TabControl1.TC_Items[1]:="Smth2";
TabControl1.TC_Items[2]:="Smth3"
end;

Все работает. Вот кусок из декларации формы, которую делает MCK. Count = 3 - присвоено в design-time.

...
TForm1 = class(TForm)
{$ENDIF KOL_MCK}
KOLProject1: TKOLProject;
KOLForm1: TKOLForm;
TabControl1: TKOLTabControl;
TabControl1_Tab0: TKOLPanel;
TabControl1_Tab1: TKOLPanel;
TabControl1_Tab2: TKOLPanel;
...

← →
=Sniper= (2004-08-09 01:20) [3]

Спасибо всё работает! ;-)

Вылетаю на строчке form1.TabControl1_Tab0.Caption := Smth" Найти похожие ветки