|
|
Események törlése és visszaállítása egy lépésben
|
|
Példaprogram letöltése
9747 bájt
|
Bizonyos esetekben szükség van arra egy programban, hogy egy-egy komponens eseményeihez rendelt eseménykezelő eljárásokat átmenetileg töröljünk, vagyis megakadályozzuk az események létrejöttét, majd egy idő után újra engedélyezzük azokat.
Mellékelt példában készítünk egy olyan eljárást, mely képes arra, hogy törölje az összes eseményét egy komponensnek, majd egy másik eljárást, mely visszaállítja az eredeti állapotot és így az események újra működőképesek lesznek.
Kezdjük a törléssel. Ennek megvalósításához készítünk egy olyan ciklust, mely végigmegy az adott objektum összes eseményén és törli azokat, miközben eltárolja a visszaállításhoz szükséges információt.
procedure TForm1.DeleteEvents(obj: TObject);
…
m.Code:=nil; m.Data:=nil;
count:=GetPropList(ti, [tkMethod], nil);
GetMem(pl, count*SizeOf(pointer));
try
GetPropList(ti, [tkMethod], pl);
FList.Clear;
for i:=0 to count-1 do begin
FList.AddObject(pl^[i].Name, TMethodClass.Create(GetMethodProp(obj, pl^[i])));
SetMethodProp(obj, pl^[I], m);
end;
finally
FreeMem(pl);
end;
end;
A TStringList-ben történő TMethod struktúra tárolásához létre kellett hoznunk egy osztályt, mivel tárolni csak TObject vagy ennek leszármazott objektumát lehet. A létrehozott TMethodClass nevű osztály nem tesz semmi egyebet, mint egy TMethod struktúrát tárol.
Nézzük, most miként állíthatjuk vissza a törölt eseményeket. A módszer szinte teljesen megegyezik az előbbivel, azzal a különbséggel, hogy most az egyes eseményekhez nem üres TMethod-ot adunk értékül, hanem a TStringList-ben tárolt TMethod-ok értékeit.
procedure TForm1.RestoreEvents(obj: TObject);
…
for i:=0 to count-1 do begin
ind:=FList.IndexOf(pl^[i].Name);
if ind<>-1 then begin
SetMethodProp(obj, pl^[i], TMethodClass(FList.Objects[ind]).Method);
end;
…
|
Könyv
Ez a cikk megtalálható ebben a könyvben:
Delphi Software Offline 2001 évkönyv 648. oldal
Felhasználási feltételek
A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!
|