Run Time Event

[DarkEternal]

Merhabalar,
ZipForge componentini runtime create ediyorum

Kod: Tümünü seç

ZipF := TZipForge.Create(Application);

ve OnProcessFileFailure eventına kod yazmak isiyorum.

OnProcessFileFailure event' ı :

Kod: Tümünü seç

type TZFProcessFileFailureEvent =  procedure (
                                      Sender: 	TObject;
                                      FileName: 	String;
                                      Operation: 	TZFProcessOperation;

                                      NativeError:	Integer;
                                      ErrorCode: 	Integer;
                                      ErrorMessage:	String;
                                      var Action:	TZFAction

                                      ) of object;

type TZFAction = (fxaRetry, fxaIgnore, fxaAbort);

property OnProcessFileFailure: TZFProcessFileFailureEvent;

şeklinde

Ben

Kod: Tümünü seç

ZipForge.OnProcessFileFailure := KendiOnProcessFileFailure;

gibi bir atama yapmak istiyorum, nasıl yapabilirim acaba?

şimdiden teşekkürler...

[unicorn64]

tanımlayacağınız prosedürü

Kod: Tümünü seç

procedure KendiOnProcessFileFailure (Sender:    TObject;FileName:    String;
                                      Operation:    TZFProcessOperation; NativeError:   Integer;
                                      ErrorCode:    Integer;   ErrorMessage:   String;
                                      var Action:   TZFAction);
begin
end;

şeklinde tanımlamalısınız

[sabanakman]

Kod: Tümünü seç

procedure TForm1.KendiOnProcessFileFailure(Sender:    TObject;FileName:    String;Operation:    TZFProcessOperation;NativeError:   Integer;ErrorCode:    Integer;ErrorMessage:   String;var Action:   TZFAction);
begin
//
end;

gibi bir kod yazarsan böyle bir atama yapabilirsin.