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]

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

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