Главная страница
    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.44 MB
Время: 0.008 c
3-5476
Tornado
2003-02-13 19:42
2003.03.03
Поле типа


14-5762
Алексей Глеб
2003-02-06 19:53
2003.03.03
Литература по созданию трейнеров


14-5826
ZeroDivide
2003-02-11 14:21
2003.03.03
Самая лучшая защита программы от нелегального пользования.


6-5705
Spy X
2003-01-12 11:38
2003.03.03
Связь по модему.


1-5635
Aleksandr
2003-02-20 11:49
2003.03.03
Истчо один баг в Делфи?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский