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

 // Создаем 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

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

Вот пример вызова контекстного меню, вызываемого при щелчке правой кнопкой мыши на узле TTreeView. Этот пример не в точности отвечает на ваш вопрос, но у меня нет желания расчитывать wParams прямо сейчас. Я думаю вы можете воспользоваться предложенной мною идеей и развить ее в нужном направлении.

procedureTfrmExplorer.TreeViewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var P : TPoint;
begin
 if  Button<>mbRight then exit;
 TreeMenu.AutoPopup := False;
 if TreeView.GetNodeAt(X,Y)<>NIL then begin
 TreeView.Selected := TreeView.GetNodeAt(X,Y);
 P.X := X;
 P.Y:=Y;
 P := TreeView.ClientToScreen(P);
 TreeMenu.Popup(P.X,P.Y);
 end;
end;

Иконки в PopupMenu

Delphi 2

type TForm1 = class(TForm)
 MainMenu1: TMainMenu;
 File1: TMenuItem; /**** Элемент для Menu Bar ****/