| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ООП [D5, D6]

Maloy_ ©   (2002-09-19 20:59:00) 

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

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

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

---

Anatoly Podgoretsky   (2002-09-20 11:50:00) [1]

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

---

Старый Паскалист   (2002-09-20 11:36:00) [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;

---

MaximatorVeter   (2002-09-19 23:15:00) [3]

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

---

Наверх