Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

Как инициализировать объект?   Найти похожие ветки 

 
SiDimka ©   (2012-04-08 04:37) [0]

Есть процедура динамического создания ToolButton:
procedure TFMain.CreateTbOpenWin(Cap: string; Iko: Integer);
var
 Tbt:TToolButton;
begin
 Tbt:=TToolButton.Create(Self);
 Tbt.Caption := Cap;
 Tbt.ImageIndex := Iko;
 Tbt.Style := tbsCheck;
 Tbt.Grouped := True;
 Tbt.Parent:=TbOpenWinows;
end;

Процедура вызова:
begin
 if Assigned(FUsers) = False then
   begin
     Application.CreateForm(TFUsers, FUsers);
     CreateTbOpenWin(FUsers.Caption, 2);
+++
      Как здесь правильно присвоить - ToolButton.Down := True
     
+++
   end
 else
   begin
      FUsers.Focused;
+++
      Как здесь правильно присвоить - ToolButton.Down := True
   end;


 
MBo ©   (2012-04-08 07:19) [1]

У TToolBar есть свойство ToolButtons, Buttons, или что-то похожее?


 
SiDimka ©   (2012-04-08 16:50) [2]

>TToolBar есть свойство Buttons

Buttons[i]
Но вопрос то в чем, какой [i] у именно этой ToolButtons, если она создана динамически, а их несколько, и создаваться могут в различном порядке.
Или может кто-то подскажет каким образм ее можно инициализировать.


 
MBo ©   (2012-04-08 19:00) [3]

Пусть CreateTbOpenWin будет функцией и возвращает либо сам объект, либо индекс кнопки


 
Cobalt ©   (2012-04-08 23:45) [4]

передавать Down в CreateTbOpenWin, или вместо процедуры это будет функция, возвращающая кнопку.


 
Плохиш ©   (2012-04-09 02:21) [5]

У всех контролов есть свойство Tag, преднозначенное для нужд программиста, вот и присваивай ему нужное уникальное значение, а при необходимости ищи кнопку с требуемым tag-ом.


 
Германн ©   (2012-04-09 02:53) [6]


> SiDimka ©   (08.04.12 04:37)
>
> Есть процедура динамического создания ToolButton

Вот ты мне объясни. На хрена нужно "динамически" создавать кнопку на ToolBar"е? Вопрос опять о "задаче".


 
SiDimka ©   (2012-04-10 04:07) [7]

>Германн

Если использоваться будет в определенный момент 5 -7 кнопок но не известно каких.  
А, что, наплодить 105 прцедур, накидать 35 кнопок,  и прятать их разве это будет правильно?


 
SiDimka ©   (2012-04-10 04:18) [8]

>Cobalt

>передавать Down в CreateTbOpenWin

Сразу так и сделал. Они плучаются все Down , прйдется создавать процедуру для отжатия кнопок. А если Down присвоить после создания, то по Grouped они сами переходят в нужное состояние.


 
Германн ©   (2012-04-10 14:10) [9]


> SiDimka ©   (10.04.12 04:07) [7]
>
> >Германн
>
> Если использоваться будет в определенный момент 5 -7 кнопок
> но не известно каких.  
> А, что, наплодить 105 прцедур, накидать 35 кнопок,  и прятать
> их разве это будет правильно?
>

105 процедур так или иначе всё равно будут в коде программы. Процедуры ведь не создашь динамически. А прятать кнопки на тулбаре очень даже нормальный механизм.



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.05 c
2-1335688376
SiDimka
2012-04-29 12:32
2013.03.22
Checkboxes DBGridEh 3.6


15-1329597005
Юрий
2012-02-19 00:30
2013.03.22
С днем рождения ! 19 февраля 2012 воскресенье


2-1332848600
Zheksonz
2012-03-27 15:43
2013.03.22
Приоритет выполнения программы.


2-1348041793
TheEd
2012-09-19 12:03
2013.03.22
Вывод картинки с прозрачным цветом - сдела криво, как правильнее?


4-1261510346
denis_l
2009-12-22 22:32
2013.03.22
Определение пользователя который запустил процесс