Главная страница
    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.069 c
4-1258360883
ABolnykh
2009-11-16 11:41
2013.03.22
Как задать координаты точки минимизации окна?


2-1347623853
Ботаник
2012-09-14 15:57
2013.03.22
Приложение замораживается


15-1339068423
Zheksonz
2012-06-07 15:27
2013.03.22
Синтаксис языка Си


2-1335327784
lesstab
2012-04-25 08:23
2013.03.22
Как получить Tag нажатой кнопки на фрейме...


3-1282861564
MAXHO
2010-08-27 02:26
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский