ПРИ дебаге, он меня выкидывает в
Код:
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
в енд. И как определить где происходит ошибка?
Я нашел какой кусок кода вызывает ошибку:
Код:
Text[4] := TLabel.Create(Form1);
Text[4].Parent :=Form1;
Text[4].Caption := 'Áîðãè';
Text[4].Left := 435;
Grid[4] := TDrawGrid.Create(Form1);
Grid[4].Parent := Form1;
Grid[4].Left := 421;
Grid[4].RowCount := 1;
Grid[4].ColCount := 1;
Grid[4].Enabled := false;
Grid[4].DefaultColWidth := 100;
Grid[4].DefaultRowHeight := 6*debts;
Grid[4].Width := 100;
Grid[4].Height := 6*debts;
Grid[4].Top := 600-Grid[4].Height+20;
Grid[4].ScrollBars := ssNone;
Grid[4].Tag := 5;
Grid[4].OnDrawCell:=DrawGrid1DrawCell;
Но вот что здесь может вызвать ошибку НЕ ПОНИМАЮ!