ConfirmChange kullanımı

procedure TForm1.FileChange(Sender: TObject);

private

procedure ConfirmChange(const ACaption, FromFile, ToFile: string);

end;

procedure TForm1.ConfirmChange(const ACaption, FromFile, ToFile: string);

begin

if MessageDlg(Format('%s %s to %s?', [ACaption, FromFile, ToFile]),

mtConfirmation, [mbYes, mbNo], 0) = mrYes then

begin

if ACaption = 'Move' then

MoveFile(FromFile, ToFile)

else if ACaption = 'Rename' then

RenameFile(FromFile, ToFile);

FileListbox1.Update;

end;end;

procedure TForm1.FileChange(Sender: TObject);

begin

with ChangeDlg do

begin

if Sender = Move1 then Caption := 'Move'

else if Sender = Rename1 then Caption := 'Rename'

else Exit;

CurrentDir.Caption := DirectoryListbox1.Directory;

FromFileName.Text := FileListbox1.FileName;

ToFileName.Text := '';

if (ShowModal <> mrCancel) and (ToFileName.Text <> '') then

ConfirmChange(Caption, FromFileName.Text, ToFileName.Text);

end;end;