Советы по Delphi. Версия 1.4.3 от 1.1.2001

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons;

type TForm1 = class(TForm)

 Button1: TButton;

 procedure Button1Click(Sender: TObject);

 procedure TestMethod(Sender: TObject);

private

 { Private declarations }

public

 { Public declarations }

end;

var Form1: TForm1;

implementation

uses ComCtrls;

{$R *.DFM}

procedure TForm1.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;

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

 with TButton.Create(Self) do begin

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

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

  Parent := TabSheet;

 end;

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

 TabSheet := TTabSheet.Create(Self);

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

 TabSheet.PageControl := PageControl;

end;

procedure TForm1.TestMethod(Sender: TObject);

begin

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

end;

end.

Клавиши-акселераторы для TPageControl

Delphi 2

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

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

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

unit tapage;

interface

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

type TAPageControl = class(TPageControl)

private

 procedure CMDialogChar(var Msg: TCMDialogChar); message CM_DIALOGCHAR;

end;

procedure Register;

implementation

procedure TAPageControl.CMDialogChar(var Msg: TCMDialogChar);

var

 i: Integer;

 S: String;

begin

 if Enabled then

  for I := 0 to PageCount - 1 do

   if IsAccel(Msg.CharCode, Pages[i].Caption) and Pages[I].TabVisible then begin

  Msg.Result := 1;

  ActivePage := Pages[I];

  Change;

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

 end;

 inherited;

end;

procedure Register;

begin

 RegisterComponents('Test', [TAPageControl]);

end;

end. 

Panel

Создание панелей во время работы приложения

Delphi 1 

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

MyPanel := TPanel.Create(Self);

MyPanel.Parent := Self; 

PopupMenu

Вызов контекстного меню в позиции курсора II

Delphi 1