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

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

Типы потомки от стандартных [D5, Win95/98]

Magic ©   (2002-10-17 13:19:00) 

Уважаемые Мастаки, как я могу создать класс потомок, например от TEdit, чтобы потом в run-time при создании экземпляра этого типа он обладал определенными свойствами: допустим в строке Text было что-то написано. Можно ли обойтись без описывания этого в OnShow?

Спасибо.

---

Anatoly Podgoretsky   (2002-10-18 11:57:00) [1]

del5cw.hlp - Данный хелп как раз посвящен написанию пользовательских компонентов, и в основном хелпе есть статься написание компонент

---

Magic   (2002-10-18 11:45:00) [2]

Спасибо всем:)

---

Юрий Зотов   (2002-10-17 18:46:00) [3]

> А если нет книги, где это описывалось бы

То в online никто ее не напишет. Даже специально для Вас.

Вы объем представляете? Для справки - книга Конопки (как раз по этой теме) порядка 400 страниц, насколько я помню.

Загляните в раздел "статьи", там было что-то типа пособия по разработке компонентов. Содержание, конечно, далеко от названия, но какие-то азы все же объясняются. Так что для начала сойдет, а потом - книги и VCL, VCL и книги.

---

Skier   (2002-10-17 16:18:00) [4]

>Magic

Чтобы Инспектор Объектов видел
твои "художества" достаточно положить
их в раздел published у компонента.

Возъмём, например, публикацию события :


type

TMyEvent = procedure(Sender : TObject; const AMyParam : Integer) of object;

TMyEdit = class(TMyEdit)
//............
private
FOnMyEvent : TMyEvent;
published
OnMyEvent : TMyEvent read FOnMyEvent write FOnMyEvent;
//............
end; //TMyEdit


---

Zemal   (2002-10-17 15:35:00) [5]

Classes References

---

Magic   (2002-10-17 15:22:00) [6]

А если нет книги, где это описывалось бы...

---

Zemal   (2002-10-17 15:13:00) [7]

Так бери книжку по делфи, открывай её и читай... ничего нового мы тебе тут нескажем :). Таких примеров куча в литературе и в хелпах... надо только открыть на нужной странице и... :)

---

Magic   (2002-10-17 15:02:00) [8]

И так, я понимаю, можно задать любое свойство любого типа. А если мне надо добавить свой метод в инспектор объектов?

---

Separator   (2002-10-17 13:28:00) [9]


unit Edit1;

interface

uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls;

type
TEdit1 = class(TEdit)
private
{ Private declarations }
protected
{ Protected declarations }
public
constructor Create(AOwner: TComponent); override;
{ Public declarations }
published
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("Samples", [TEdit1]);
end;

{ TEdit1 }

constructor TEdit1.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Text:= "MyText"
end;

end.


---

Skier   (2002-10-17 13:26:00) [10]

>Magic

TMyEdit = class(TEdit)
private
public
constructor Create(AOwner : TComponent); override;
end; //TMyEdit


constructor TMyEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Text := "Hello, world !";
end;


---

Наверх