Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вопрос по ControlBar


uno-84 ©   (2008-07-10 08:32:00) 

Доброе утро! Подскажите пожалуйста! Я извлекаю из Базы инфармацию о вложениях сообщения

SQL.Clear;
               SQL.Add('select * from ATTACHMENTS_EXT left join NMK on       ATTACHMENTS_EXT.ATTACH_REF_ID = NMK.NMK_ID where ATTACHMENTS_EXT.ATTACH_TYPE = :ATTACH_TYPE and ATTACHMENTS_EXT.MESSAGE_ID = :MESSAGE_ID');
ParamByName('ATTACH_TYPE').AsInteger := 4;
with MessagesForm.StringGrid1 do
begin
     ParamByName('MESSAGE_ID').AsString := Cells[13, Row];
end;
Open;
while not Eof do
begin
      with ListView1.Items.Add do
                    begin
                         Caption := 'Íîìåíêëàòóðà';
                         with Subitems do
                         begin
                              Add(FieldByName('ATTACH_NOTE').AsString);
                              Add(FieldByName('NMK_NAME').AsString);
                              Add(FieldByName('ATTACH_REF_ID').AsString);
                         end;
                    end;
                    Next;
В ListrView, а каким образом извлекать информацию в ControlBar, что бы для кождого вложения генерировалась либо кнопка с обозначением вложения, либо Edit? Помогите пожалуйста! Заранее спасибо!


Тын-Дын   (2008-07-10 17:39:00) [1]

Удалено модератором


Johnmen   (2008-07-10 16:47:00) [2]


> uno-84   (10.07.08 16:32) [13]
> Спасибо большое, я просто сам ступил, извените за беспокойство
> та просто надо было
> var Btn: TBitBtn;
> ................
> ControlBar1.Create(Btn);
> ....................

Простите, а чем этот бред отличается от упоминаемой Вами тупости?


uno-84   (2008-07-10 16:32:00) [3]

Спасибо большое, я просто сам ступил, извените за беспокойство та просто надо было

var
Btn: TBitBtn;
................
ControlBar1.Create(Btn);
....................


MsGuns   (2008-07-10 15:59:00) [4]

Лучше использовать листбокс с закладками как в ИЕ


Dennis I. Komarov   (2008-07-10 15:02:00) [5]

> [10] uno-84   (10.07.08 14:58)

Почитай [1] еще раз...


uno-84   (2008-07-10 14:58:00) [6]

Просто мне нужно что бы вместо ListView для каждого вложения создавалась кномка с его именем на ControlBar


Тын-Дын   (2008-07-10 13:23:00) [7]

Удалено модератором


brother   (2008-07-10 12:58:00) [8]

Удалено модератором


Тын-Дын   (2008-07-10 12:53:00) [9]

Удалено модератором


brother   (2008-07-10 12:29:00) [10]

> а каким образом извлекать информацию в ControlBar, что бы
> для кождого вложения генерировалась либо кнопка с обозначением
> вложения, либо Edit? Помогите пожалуйста!

телепатически предположу, что автору надо в ControlBar (что странно) либо динамически создаватбь кнопку на аттач или динамический едит с текстом тля каждого письма...
но думаю что сия постановка вопроса не корректна ибо это бред...
Предлагаю: по клику на ListrView открывать новую форму (с шаблончиком) куда все данные заносить из письма... про аттач, если есть то кнопка активна и при ее нажатии предлагать сохранить файло, если аатача нет то и кнопка disable...


Anatoly Podgoretsky   (2008-07-10 12:14:00) [11]

> Тын-Дын  (10.07.2008 11:34:03)  [3]

Вот именно с этим и есть проблема, а другого вопроса нет, как нет и TControlBar


MsGuns   (2008-07-10 11:53:00) [12]

Казалось бы, причем здесь Лужков ?


Тын-Дын   (2008-07-10 11:34:00) [13]


> Dennis I. Komarov ©   (10.07.08 11:03) [2]
> > [1] Johnmen ©   (10.07.08 08:54)
>
> Как всегда, с постановкой вопроса ;)


Только один момент непонятен, а вопрос нормальный.


> uno-84   (10.07.08 08:32)  


Причем здесь TControlBar? Куда ты его собрался прикрутить?


Dennis I. Komarov   (2008-07-10 11:03:00) [14]

> [1] Johnmen ©   (10.07.08 08:54)

Как всегда, с постановкой вопроса ;)


Johnmen   (2008-07-10 08:54:00) [15]

В чём/с чем конкретно проблема?


Наверх

Титульная страница Поиск, карта сайта Написать письмо