ООП

← →
Maloy_ (2002-09-19 20:59) [0]

Задумал написать одну прогу , по умному, т.е. насоздавать свои классы, объекты и все такое, наследовать свои же объекты ну и т.д. и потом их использовать

Подскажите типа как это сделать по нормальному!

Объекты - тиа графические примитивы, я потом их на форме рисовать! Кажись понятно выложыл?!

← →
MaximatorVeter © (2002-09-19 23:15) [1]

Пробуй, ошибайся, читай книжки, снова пробуй.

← →
Старый Паскалист (2002-09-20 11:36) [2]

Да что-нибудь в таком роде:

TFigure = class(TPersistent)
public
procedure Draw(Canvas: TCanvas); virtual; abstract;
function Manipulator: TManipulator; virtual;
// ... Result.Figure := Self;
property Visible: Boolean;
//property OnDraw;
//property OnChange;
end;

TGroup = class(TFigure)
public
property Items[I: Integer]: TFigure;
property ItemCount: Integer;
procedure Add(...);
procedure Remove(...);
end;

TManipulator = class
property Figure: TFigure;
property Captured: Boolean;
procedure MouseDown(Shift: TShiftState; X, Y: Integer); v.a;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); v.a;
procedure MouseUp(Shift: TShiftState; X, Y: Integer); v.a;
// procedure HandleMouse(Event: TMouseEventID; Shift, X, Y);
function HitTest(X,Y): Boolean; v.a;
procedure Edit; // ShowDialog;
procedure Translate(...);
proccedure Rotate(...);
procedure Scale(...);
end;

Твой вопрос относится к обучению, бери хорошии книги по ООП не обязательно Дельфи

ООП Найти похожие ветки