Мерцание PopupMenu

Вторник, 15 Декабря 2020 г. 18:29 + в цитатник

Gonarh: Я не заметил мерцания

Добавлено 15.12.20, 15:31
Как вариант, попробуйте

procedure TForm1.Timer1Timer(Sender: TObject);

var

i: Integer;

begin

Timer1.Enabled := False;

LockWindowUpdate(PopupMenu1.Handle);

for i := PopupMenu1.Items.Count-1 downto 0 do

if i mod 2 = 0 then

PopupMenu1.Items[i].Visible := False;

LockWindowUpdate(0);

end;

Метки: Delphi: Общие вопросы

Комментировать

Страницы: [1] [Новые]

LiveInternetLiveInternet