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

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

А как, создав компонент, и добавив туда еще один, использовать [D7, WinXP]

Michael5 ©   (2005-08-08 22:22:00) 

свойства, методы второго компонента?
Я о своем DBGrid, в который хочу встроить функции подключения к БД.
В частности, ADOConnection.
Хотел создать свой метод для DBGrid - DBGrid.ConnectionString, на основе ADOConnection.ConnectionString. Не получилось...

Если не трудно, киньте, пожалуйста, пример подобного компонента, где используются методы других компонентов. Конечно, похоже, придется книжку покупать, но пока хотелось бы разобраться так...

Вряд ли слишком просто сделать мой код рабочим, но на всякий случай приведу его. (И почему это 'MyADOConnection' незадекларирован...?)

Заранее благодарен


unit MyDBGrid;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DBGrids, DB, ADODB, StdCtrls;

type
 TMyDBGrid = class(TDBGrid)
 private
   MyDataSource: TDataSource;
   MyADOConnection: TADOConnection;
   MyADOTable: TADOTable;
   FButton:TButton;
   { Private declarations }
 protected
   { Protected declarations }
 public
   { Public declarations }
 published
 constructor Create(AOwner:TComponent); override;
procedure ConnectionString(const Value: WideString);
procedure MyADOConnection.SetConnectionString(const Value: WideString); override; //[Error] MyDBGrid.pas(25): Undeclared identifier: 'MyADOConnection'
 end;

procedure Register;

implementation

procedure Register;
begin
 RegisterComponents('Standard', [TMyDBGrid]);
end;

{ TMyDBGrid }

constructor TMyDBGrid.Create(AOwner: TComponent);
begin
 inherited;
FButton:=TButton.Create(Self);
FButton.Parent:=Self;
end;

procedure TMyDBGrid.ConnectionString(const Value: WideString);
begin
//MyADOConnection.SetConnectionString(Value);
end;

end.

---

Michael5   (2005-08-08 23:01:00) [1]

Спасибо! Получается :) Забыл про создание!

---

Наиль   (2005-08-08 22:36:00) [2]

Любой компонент используемый в твоём нужно создавать в конструкторе и уничтожать в деструкторе (но не всегда).
В таком случае твоя закоментированая строчка станет работать.
Для полноценной работы нужно задать в конструкторе большинство свойств дочернего объекта.

---

Наверх