Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Расположение кнопок в приложении, Расположение при развернутом окне.... 
V
    Опции темы
ahito1
  Дата 27.3.2009, 20:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: -1
Есть приложение, в окне расположен TCoolBar, align которого "alTop", он находится в верху, создаю на нём один Band(типа панели инструментов), кидаю n-ое кол-во туда TSpeedButtons, ставлю align-ы, anchor-ы а толку ноль при изменении размеров окна кнопки не перемещаются! Мне нужно чтобы кнопка "Выход" была всегла на 3 пикселадо края формы справа. Не могу понять, как это сделать?  smile 

Это сообщение отредактировал(а) ahito1 - 27.3.2009, 21:21
PM MAIL   Вверх
razsagal
Дата 27.3.2009, 21:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 23.10.2007
Где: Украина, Днепродз ержинск

Репутация: 1
Всего: 1
Код

  Button.Align := alNone;
  Button.Anchors := [akTop,akRight];


есть еще извращенный вариант:
Код

...
  private
    { Private declarations }
    procedure WMExitSizeMove(var Message: TMessage) ; message WM_EXITSIZEMOVE;
...
procedure TYourForm..FormCreate(Sender: TObject);
begin
  Button.Align := alTop;
  Button.AlignWithMargins := True;
  Button.Margins.Left := ClientWidth - Button.Width;
end;

procedure TYourForm.WMExitSizeMove(var Message: TMessage) ;
begin
  //Caption := 'Move / resize complete!';
  Button.Margins.Left := ClientWidth - Button.Width;// тут должна быть константа, я привел Button.Width лишь как ширину Вашей кнопки
end;

// или по события изменения размера формы
procedure TYourForm.FormResize(Sender: TObject);
begin
  Button.Margins.Left := ClientWidth - Button.Width;
end;


Это сообщение отредактировал(а) razsagal - 27.3.2009, 21:41
PM MAIL ICQ   Вверх
ahito1
  Дата 27.3.2009, 21:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: -1
для обычных Tbuttons работает, но для TSpeedButtons не работает! smile 
PM MAIL   Вверх
razsagal
Дата 27.3.2009, 21:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 23.10.2007
Где: Украина, Днепродз ержинск

Репутация: 1
Всего: 1
Цитата(ahito1 @ 27.3.2009,  21:30)
для обычных Tbuttons работает, но для TSpeedButtons не работает! smile

как это не работает, очень даже работает.

Присоединённый файл ( Кол-во скачиваний: 7 )
Присоединённый файл  Project2.rar 197,91 Kb
PM MAIL ICQ   Вверх
ahito1
Дата 27.3.2009, 21:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: -1
razsagal,  все работает на новой созданной кнопке tspeedbutton, а к уже созданным применить не получается, не перемещаются они, может какие-то свойства стоят не те?

Это сообщение отредактировал(а) ahito1 - 27.3.2009, 21:57
PM MAIL   Вверх
razsagal
Дата 27.3.2009, 22:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 23.10.2007
Где: Украина, Днепродз ержинск

Репутация: 1
Всего: 1
скинь dfm формы. и проверь что Anchors - включены, а Align - выключены.
PM MAIL ICQ   Вверх
ahito1
Дата 27.3.2009, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: -1
кидаю всё вместе

Добавлено через 13 минут и 37 секунд
razsagal, спасибо вам за помощь, думаю сделаю так при ресайзе формы:
Код

   button.Left := ClientWidth - 50;



Присоединённый файл ( Кол-во скачиваний: 6 )
Присоединённый файл  ______ZIP___WinRAR.zip 5,30 Kb
PM MAIL   Вверх
razsagal
Дата 27.3.2009, 22:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 23.10.2007
Где: Украина, Днепродз ержинск

Репутация: 1
Всего: 1
наследника как SpeedButton у CoolBar нет, как получается. У меня тоже не захотел привязываться, но я с Куллбаром ни разу и не работал.
но решение есть (я его выше написал):
Код

procedure TYourForm.FormResize(Sender: TObject);
begin
  SpeedButton1.Left := ClientWidth - SpeedButton1.Width - 3;
end;
PM MAIL ICQ   Вверх
ahito1
Дата 27.3.2009, 23:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: -1
razsagal, я так и сделал, спасибо, поставлю "+" когда наберу 100 постовsmile
тема закрыта
PM MAIL   Вверх
THandle
Дата 28.3.2009, 09:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372
Цитата(ahito1 @  27.3.2009,  23:21 Найти цитируемый пост)
спасибо, поставлю "+" когда наберу 100 постов


Поставил smile
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0506 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.