Форум: "Основная";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
ВнизПовторное обращение с помощью с Меню Найти похожие ветки
← →
aus (2002-04-07 02:33) [1]
procedure N1Click(sender: TObject);
begin
with Sender as TMenuItem do begin
Checked := not Checked;
Form2.Visible := Checked;
end;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c