Форум: "Основная";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];
ВнизSystem form menu Найти похожие ветки
← →
Юрий Зотов (2002-02-08 18:29) [3]Этот код показывает системное меню формы в месте клика по ней. Но меню "нерабочее", код надо дополнить.
procedure TForm1.FormClick(Sender: TObject);
begin
with Mouse.CursorPos do
TrackPopupMenu(GetSystemMenu(Handle, False), 0, X, Y, 0, Handle, nil)
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c