|
Вопрос # 653/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
у меня такой вопрос как в PageControl зделать так чтобы вкладки распологались в правой а не в левой части компонента?
 |
Вопрос задал: Сидаровский Георгий (статус: Посетитель)
Вопрос отправлен: 22 июня 2007, 11:13
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Вадим К
Здравствуйте, Сидаровский Георгий!
Написать наследника, в котором самостоятельно отрисовать вкладки. В JVCL можно подсмотреть несколько реализаций PageControl'a. А дальше - ручками.
 |
Ответ отправил: Вадим К (статус: Академик)
Время отправки: 22 июня 2007, 12:11
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 22 июня 2007, 15:54; участников в обсуждении: 1.
|
Градов Ю.М. (статус: 8-ой класс), 22 июня 2007, 15:54 [#1]:
Поискать стороннего производителя компонента или
можно поизвращаться: Размещаете Panel1, Panel2...Paneln. Одна в одной, как матрешки. Сверху, справа ряд SpeedButton1,SpeedButton1...SpeedButton[n] и пишите обработчик событий onSpeedButtonClick. Панели и кнопки лучше создавать массивами:
var
Form1: TForm1;
Btn: array[1..10] of TSpeedButton;
Pnl: array[1..10] of TPanel;
procedure TForm1.FormCreate(Sender: TObject);
var
i: Byte;
begin
for i := 1 to 10 do
begin
{Create the buttons}
Btn[i] := TSpeedButton.Create(Self);
with Btn[i] do
begin
Parent := Form1;
Caption := 'Button ' + IntToStr(i);
Top := i * Height;
Tag := i;
{Assign a OnClick handler}
OnClick := BtnClick;
Visible := True;
end;
end;
end;
Добавляете процедуру
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure BtnOnClick;
private
{ Private declarations }
public
{ Public declarations }
end;
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
