VPF::изменения свойст left и top - Форум программистов

misskio

Дата 27.10.2006, 14:34 (ссылка)

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

Загрузка ...

Новичок

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

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

здравствуйте, еще раз

моя программа создает форму с элементами
типы элементов создаю также вручную

расположение элементов определяется следующим образом:

Код


    if Query['param'] = 7 then // YearList
      Top := Top + Delta + CreateTComboBox_YearList(Filter, Top, Query['label'], StrToInt(Query['param']));
    if Query['param'] = 8 then // SelectFileName
      Top := Top + 30 + CreateTSelectFile(Filter, Top, Query['label'], StrToInt(Query['param']));
    if Query['param'] = 9 then // PersonType1
      Top := Top + 15 + CreateTRadioGroup_PersonType1(Filter, Top, Query['label'], StrToInt(Query['param']));

, где delta = 5
top = 10 (изначально)

Код одной из функций такой:

Код


unction TFilter.CreateTRadioGroup_PersonType1(ParentForm: TWinControl; TopPosition: Integer; CaptionStr: string; ParamId: integer): Variant;
const
  PersonTypes: array[1..3] of string = ('физические лица', 'юридические лица', 'все');
var
  i: integer;
begin
  
  with TRadioGroup.Create(self) do
  begin
    CreateTLabel(ParentForm, TopPosition - 20, 'Привлеченные клиенты:');
    Parent := ParentForm;
    Top := TopPosition;
    left := leftPosition;
    Tag := ParamId;
    Width := WidthComponent;
    ParentForm.Height := ParentForm.Height + Height + Delta;
    Result := Height;

    for i := 1 to High(PersonTypes) do
      Items.Add(PersonTypes[i]);
    ItemIndex := 2;
  end;
end;

по идее должна получить:
Группу переключателей один под другим на расстоянии 100 от предыдущего элемента формы и выше на расстоянии 20 над ним надпись 'Привлеченные клиенты'... но получается - см. файл

Это сообщение отредактировал(а) misskio - 27.10.2006, 14:51

Albinos_x

Дата 27.10.2006, 17:47 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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

и где-же файл?

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

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