Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.03;
Скачать: CL | DM;

Вниз

Управление настройками рабочего стола   Найти похожие ветки 

 
YanVal ©   (2003-01-04 11:52) [0]

Как изменить опцию "Отображать содержимое окна при его перетаскивании"(Свойства экрана-Эффекты в Win98)
Заранее благодарен Ян:)


 
Севостьянов Игорь ©   (2003-01-04 13:53) [1]

Очень просто
Текущее значение получаем так:
var
B: BOOL;
begin
if SystemParametersInfo(SPI_GETDRAGFULLWINDOWS, 0, @B, SPIF_SENDCHANGE) then ShowMessage(IntToStr(Integer(B))); // где 1 - True, 0 - False
//Устанавливаем "Отображать содержимое окна при его перетаскивании" в True:
if not SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, 1, 0, SPIF_SENDCHANGE) then ShowMessage("Error");
//Устанавливаем "Отображать содержимое окна при его перетаскивании" в True:
if not SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, 0, 0, SPIF_SENDCHANGE) then ShowMessage("Error");
end;



 
Севостьянов Игорь ©   (2003-01-04 13:54) [2]

Сорри в последнем случае конечно же False (тестировал на W2K)


 
YanVal ©   (2003-01-04 14:40) [3]

Спасибо, Игорь!



Страницы: 1 вся ветка

Текущий архив: 2003.03.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
9-5369
][рюн
2002-09-29 20:33
2003.03.03
В чем лучше хранить спрайты? (DelphiX)


14-5854
BCB_USER
2003-02-14 06:39
2003.03.03
Спасите меня плиз, я уже тону?


14-5792
Krionix
2003-02-12 16:10
2003.03.03
компонент для отображения документа MSWord в Delphi


14-5816
Николай В.
2003-02-10 16:41
2003.03.03
PGP


3-5379
serg1977
2003-02-11 16:08
2003.03.03
Создание БД MS ACCESS