Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.10.24;
Скачать: [xml.tar.bz2];

Вниз

MessageBox в процедуре ScrollBar1Scroll   Найти похожие ветки 

 
Ja   (2004-10-07 17:34) [0]

Использую Application.MessagBox(...) в обработке события OnScroll полосы прокрутки ScrollBar1, т.е.

procedure TForm1.ScrollBar1Scroll(Sender: TObject;
 ScrollCode: TScrollCode; var ScrollPos: Integer);
var m: integer;
begin
 if ButtonApply.Enabled then begin
    m:=Application.MessageBox("Save?","",MB_YESNOCANCEL);
    if m=6 then ButtonApply.Click;
 end;
 ................
end;

MessageBox появляется, нажимается на нем кнопка (независимо какая-да, нет, отмена), MessageBox исчезает и....опять открывается и дальше все идет так, как надо. Практическими путями   было определено ( :) ), что такой глюк происходит именно от того, что MessageBox используется именно в этой процедуре... как решить или обойти эту проблему?


 
Amoeba ©   (2004-10-07 17:40) [1]

А зачем вообще надо это делать?

P.S. Замечание по коду. Лучше писать так:
if Application.MessageBox("Save?","",MB_YESNOCANCEL) = 6 then
 ButtonApply.Click;


 
Ja   (2004-10-07 17:45) [2]

Скроллом меняются картинки, которые могут быть изменены. И при пролистывании необходимо спрашивать, сохранить ли изменения...вот... Замечание вполне логично и целесообразно , но не в этом случае :) здесь же приведен только кусок кода...



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

Форум: "Основная";
Текущий архив: 2004.10.24;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.039 c
14-1096062906
Мазут Береговой
2004-09-25 01:55
2004.10.24
А такая тема была уже? Про дырку в JPEG.


3-1095744487
Fishka
2004-09-21 09:28
2004.10.24
Level DBF-файлов 5 и 7 - какое это имеет значение?


1-1097582862
Dez
2004-10-12 16:07
2004.10.24
Работа с масивами(матрицами)


1-1097568975
Одиг
2004-10-12 12:16
2004.10.24
TSpeedButton и как к нему приделать drag&drop


14-1096142345
Verg
2004-09-25 23:59
2004.10.24
И все-таки инверсия





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский