Форум: "Начинающим";
Текущий архив: 2013.10.06;
Скачать: [xml.tar.bz2];
Вниз
Почему компилируется? Найти похожие ветки
← →
Cobalt © (2013-01-17 11:16) [0]
uses ... Grids...
TStringGridEx = class(TStringGrid)
private
fSelectStarted: boolean;
function CalcSelection(const ACol, ARow: integer): boolean;
procedure SetSelectStarted(const Value: boolean);
procedure DrawSelectStarted;
protected
property SelectStarted: boolean read fSelectStarted write SetSelectStarted;
procedure DrawCell(ACol, ARow: Longint; ARect: TRect;
AState: TGridDrawState); override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
end;
TStringGrid = class(TStringGridEx);
TfrmReserveInfo = class(TForm)
pnlTop: TPanel;
cbTimeStep: TComboBox;
lblTimeStep: TLabel;
sgReserveInfo: TStringGrid;
Я ожидал увидеть ошибку типа "Идентификатор уже объявлен"
← →
sniknik © (2013-01-17 11:21) [1]без упреждающего объявления типов было бы затруднительно делать ссылки на самого себя... например. а это распространенная практика.
← →
icWasya © (2013-01-17 11:35) [2]В одном модуле создать класс в тем же именем действительно невозможно. А так - в первой строке ссылка на класс Grids.TStringGrid, а во второй - объявление нового класса с именем TStringGrid.
← →
sniknik © (2013-01-17 12:08) [3]> В одном модуле
кстати да.
можешь после где нибудь нарваться на ошибку "не совпадение типов TStringGrid и TStringGrid"... просто объявленных в разных модулях.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2013.10.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c
