VPF::Runtime Tabsheets и контролы на них - Форум программистов

halfhope

Дата 17.5.2011, 21:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 31.5.2010

Репутация: нет
Всего: нет

Создаю вкладки с двумя RichEdit-ами и одним сплиттером, посередине.

Код


procedure TvkPC.CreateControls(Tab: TvkTC);
var
  RvChat,RvEdit:TRichEdit;
  splitter:TSplitter;
begin
  with RvChat do
  begin
    Parent := Tab;
    Align := alTop;
    BorderStyle := bsNone;
    Text := 'RvChat';
  end;

  with RvEdit do
  begin
    Parent := Tab;
    Align := alClient;
    Height := 200;
    BorderStyle := bsNone;
    Text := 'RvEdit';
  end;

  with splitter do
  begin
    Parent := Tab;
    Align := alTop;
  end;
end;

Как бы я ни делал(менял местами, менял align), у меня на первой вкладке всегда создается криво(сплиттер всегда находится сверху), а на последующих вкладках все нормально...
Первая вкладка
user posted image

Вторая(и последующие)
user posted image

Snowy

Дата 18.5.2011, 10:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код

  with splitter do
  begin
    Top := RvChat.Height + 50; // спустить пониже
    Parent := Tab;
    Align := alTop;
  end;

halfhope

Дата 18.5.2011, 20:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 31.5.2010

Репутация: нет
Всего: нет

Спасибо, все работает, понял зачем так нужно делать, но все равно как то странно...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »