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

Вниз

как организовать меню с галочками?   Найти похожие ветки 

 
Demon_mhm ©   (2003-04-25 19:51) [0]

Есть ListView в режиме VSReport. Необходимо создать контекстное (да можно и обыкновенное) меню, в котором можно было бы галочками выделить колонки, которые необходимо показать. Собственно механизм создания меню и показа колонок ясен, неясно только как проверять эти галочки (в onPopup не проверяет). Событие OnClick что-ли? Или что-нибудь другое чтобы проверять их всем скопом. Буду очень признателен за помощь


 
LEON   (2003-04-25 19:53) [1]

menuitem.checked


 
Demon_mhm ©   (2003-04-25 20:17) [2]

Я ж говорю, что это и так понятно, я имею ввиду, где ето checked проверять-то? Есть какое-нибьдь событие, которое возникает при закрытии контекстного меню?


 
LEON   (2003-04-25 20:18) [3]

onChange ?


 
Demon_mhm ©   (2003-04-25 20:30) [4]

А точно не знаешь? У меня просто щас Дельфей под рукой нет чтоб проверить


 
LEON   (2003-04-26 18:26) [5]

нет, onchange вызывается всегда только не при закрытии. А вот onClick менюитема правильно. Можешь не проверять.


 
Proton ©   (2003-04-27 01:58) [6]

используйте по назначению
procedure TForm1.miClick(Sender: TObject);
begin
with TMenuItem(sender) do
begin
with ListView1.Columns[tag] do
if Checked then
begin
Width := 0;
MaxWidth := 1;
end
else
begin
MaxWidth := 0;
Width := 50;
end;
end;
end;

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var i:integer;
mi :TMenuItem;
begin
PopupMenu1.Items.Clear;
for i:=0 to ListView1.Columns.Count - 1 do
begin
mi := TMenuItem.Create(PopupMenu1);
with mi do
begin
Checked := ListView1.Columns[i].Width <> 0;
Caption := ListView1.Columns[i].Caption;
Tag := i;
OnClick := miClick;
end;
PopupMenu1.Items.Add(mi);
end;
end;



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

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

Наверх




Память: 0.48 MB
Время: 0.012 c
14-23362
msoftware
2003-04-21 10:53
2003.05.08
Где достать INTERBAZE???


3-23003
Ocean
2003-04-16 14:07
2003.05.08
Столбец сразу в TStringList


7-23407
[BAD]Angel
2003-03-16 21:08
2003.05.08
Как выключить комп?


14-23343
Vertx
2003-04-20 13:23
2003.05.08
Компонент отчетов


3-23037
Rise
2003-04-18 16:01
2003.05.08
DBGrid и Real