Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

withtbutton.create(application) do begin

Parent := P.Pages[2]; // «Указываем» кнопке родительскую страницу

Caption := 'Привет, страница 3';

Left := 100;

Top := 90;

end; // with

// Это должно быть сделано, или Tab первоначально не синхронизируется

// с правильной страницей. Только в случае, если у вас более чем одна страница.

P.ActivePage := P.Pages[1];

P.ActivePage := P.Pages[0]; // Реально показываемая страница

end;

В данном документе показана технология динамического добавления страниц компонента PageControl (объектов TTabSheet) к элементу управления Windows 95/NT PageControl (объект TPageControl). Оба этих объекта объявлены в модуле ComCtrls. Поэтому убедитесь в том, что ComCtrls указан в списке используемых модулей.

Прежде, чем мы приступим к динамическому созданию страниц, давайте динамически создадим PageControl (если он еще не на форме). Это делается посредством вызова конструктора TPageControl Create с параметром owner, равным Self. Конструктор Create возвращает объектную ссылку на вновь созданный объект PageControl и назначает его переменной 'PageControl'. Вторым шагом будет установка свойства PageControl Parent в Self. Свойство Parent определяет где должен быть отображен новый PageControl; в нашем случае это будет сама форма. Вот кусок кода, демонстрирующий вышесказанное:

var

PageControl : TPageControl;

PageControl := TPageControl.Create(Self);

PageControl.Parent := Self;

Примечание: При разрушении формы разрушаются также PageControl и ее закладки, поскольку они принадлежат форме.

Существует два основных способа добавления новых страниц к PageControl. Сначала вы должны динамически создать TTabSheet следующим образом:

var

TabSheet : TTabSheet;

TabSheet := TTabSheet.Create(Self);

Затем ему необходимо присвоить заголовок следующей командой:

TabSheet.Caption := 'Закладка 1';

И, наконец, самая важное действие заключается в том, что новой странице необходимо сообщить, какому объекту PageControl она принадлежит. Это делается с помощью присваивания свойством TTabSheet PageControl переменной-ссылки TPageControl, типа той, которую мы создали выше (PageControl). Вот кусок кода, демонстрирующий вышесказанное:

TabSheet.PageControl := PageControl;

Ключевым моментом при создании и размещении элемента управления на странице TabSheet является назначение свойства Parent на переменную-ссылку класса TTabSheet. Вот пример:

var

Button : TButton;

Button := TButton.Create(Self);

Button.Caption := 'Кнопка 1';

Button.Parent := TabSheet;

Более подробно об объектах TPageControl и TTabSheet вы можете узнать в онлайн-документации, или посмотреть код файла ComCtrls.pas, расположенного в вашем каталоге ..\Delphi 2.0\SOURCE\VCL.

// Код использует форму с единственной на ней кнопкой.

unitDynamicTabSheetsUnit;

interface

usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons;

typeTForm1 = class(TForm)

Button1: TButton;

procedureButton1Click(Sender: TObject);

procedureTestMethod(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

varForm1: TForm1;

implementation

usesComCtrls;

{$R *.DFM}

procedureTForm1.Button1Click(Sender: TObject);

var

PageControl : TPageControl;

TabSheet : TTabSheet;

begin

// Создаем PageControl

PageControl := TPageControl.Create(Self);

PageControl.Parent := Self;

// Создаем первую страницу и связываем ее с PageControl

TabSheet := TTabSheet.Create(Self);

TabSheet.Caption := 'Закладка 1';

TabSheet.PageControl := PageControl;

// Создаем первую страницу

withTButton.Create(Self) do begin

Caption := 'Кнопка 1';

OnClick := TestMethod; // Назначаем обработчик события

Parent := TabSheet;

end;

// Создаем вторую страницу и связываем ее с PageControl

TabSheet := TTabSheet.Create(Self);

TabSheet.Caption := ' Закладка 2';

TabSheet.PageControl := PageControl;

end;

procedureTForm1.TestMethod(Sender: TObject);

begin

ShowMessage('Привет');

end;

end.

Тема: Создание акселераторов, работающих с TPageControl

TPageControl, расположенный на закладке Win95 палитры компонентов, в настоящий момент не может работать с акселераторами. Тем не менее, в наших силах создать потомок TPageControl, поддерживающий вышеназванную характеристику.

В приведенном ниже коде показана реализация такого компонента. Наследник TPageControl осуществляет захват и обработку сообщения CM_DIALOGCHAR. Это позволяет перехватывать комбинации клавиш, которые могут быть акселератороми для данной формы. Обработчик события CMDialogChar использует функцию IsAccel, которая позволяет определить, имеет ли отношение перехваченный код клавиш к акселератору одной из страниц TPageControl. В этом случае делаем страницу активной и передаем ей фокус.

unittapage;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls;

typeTAPageControl = class(TPageControl)

private

procedureCMDialogChar( varMsg: TCMDialogChar); messageCM_DIALOGCHAR;

end;

procedure Register;

implementation

procedureTAPageControl.CMDialogChar( varMsg: TCMDialogChar);

var

i: Integer;

S: String;

begin

ifEnabled then

forI := 0 toPageCount - 1 do

ifIsAccel(Msg.CharCode, Pages[i].Caption) andPages[I].TabVisible then begin

Msg.Result := 1;

ActivePage := Pages[I];

Change;

Exit; // выход из цикла.

end;

inherited;

end;

procedure Register;

begin

RegisterComponents('Test', [TAPageControl]);

end;

end.

…я могу просто догадываться, не видя ваш код, но вы установили у панелей свойство parent? Чтобы отобразить элементы управления на вашей форме, вам НЕОБХОДИМО вставить в обработчик события формы OnCreate следующие две строки:

MyPanel := TPanel.Create(Self);

MyPanel.Parent := Self;

…вызов popup-меню связан с координатами экрана. Координаты, получаемые в вашем обрабочике события, вероятно относятся к объекту, который создал это сообщение. Для преобразования координат вам необходимо воспользоваться функцией ClientToScreen.