Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > закрытия PopupMenu1

Автор: HEyMEXA 10.5.2008, 23:45

У меня есть таймер, и мне нужно чтоб как я открываю меню на форме он останавливался. я сделал так

Код


procedure TForn1l.PopupMenu1Popup(Sender: TObject);
begin
timer1.Enabled:=false;
end;

И какменю открылось я там чото подеелал поросматривал и когда токо оно закрылось он опять заработал тобишь нужно где то прописать

timer1.enabled:=true;

но где?

подскажите пожалуйсто.

Автор: Poseidon 11.5.2008, 00:16

Ты не поверишь... OnChange

Автор: HEyMEXA 11.5.2008, 02:05

Цитата(Poseidon @ 11.5.2008, 00:16)

Ты не поверишь... OnChange

Если так то неработает. Сначало он выключает таймер потом включает а токо потом выдает меню

Код


procedure TForm1.PopupMenuChange(Sender: TObject; Source: TMenuItem;Rebuild: Boolean);
begin
timer1.Enabled:=true;
end;

Автор: Poseidon 11.5.2008, 15:03

Хм... странно. А должно работать. Ну пропиши timer1.enabled:=true; в OnClick каждого пункта меню

Код


procedure TForm1.N1Click(Sender: TObject);
begin
{...}
Timer1.Enabled:=True;
end;