Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.049 c