Текущий архив: 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.05 c