Saludos, tengo este procedimiento que es para guardar un archivo:
Código Delphi
[-]PROCEDURE TForm1.Guardar1Click(Sender: TObject); VAR
rutaArchivo: STRING;
Res: integer;
CanClose: Boolean;
BEGIN
WITH TSaveDialog.Create(NIL) DO
BEGIN
TRY
IF Execute THEN
rutaArchivo := FileName;
FINALLY
Free;
END;
END;
IF FILEEXISTS (rutaArchivo) THEN
BEGIN
Res := MessageBox(0, '¿Desea reemplazar el archivo?', 'Advertencia', MB_ICONINFORMATION or MB_YESNOCANCEL);
case Res of
IDYES:
begin
CanClose := True; guardar (rutaArchivo,Pantalla);
end;
IDNO:
begin
CanClose := False; TForm1.Guardar1Click(Sender); end;
IDCANCEL:
begin
CanClose := False; end;
END;
end
ELSE
guardar (rutaArchivo,Pantalla);
end;
Lo que pasa es que me aparece un error, en la linea en la que tengo puesto:
TForm1.Guardar1Click(Sender);
me dice: "This form of method call only alloweb for class methods"
¿Como puedo llamar a dicho procedimiento? Gracias.