Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.13 c
15-1348572467
dm
2012-09-25 15:27
2013.03.22
bat-файлы, взамодействие с приложением


2-1341051183
guest
2012-06-30 14:13
2013.03.22
как работает FileMon?


15-1329678631
ололо
2012-02-19 23:10
2013.03.22
Как разместить компонент в неклинтской части окна?например как эт


15-1346949988
Опять я
2012-09-06 20:46
2013.03.22
Как вывести ВЕКТОРНУЮ линию в Delphi?


15-1330707938
ClawClaw
2012-03-02 21:05
2013.03.22
Внезапно стал выключаться ноутбук





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский