Ver Mensaje Individual
  #1  
Antiguo 05-06-2007
Avatar de jorgegetafe
jorgegetafe jorgegetafe is offline
Miembro
 
Registrado: dic 2006
Posts: 238
Reputación: 18
jorgegetafe Va por buen camino
Llamar de una función a otra

Saludos, tengo este procedimiento que es para guardar un archivo:



Código Delphi [-]
PROCEDURE TForm1.Guardar1Click(Sender: TObject);                                // guardar
  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;                           // sobreescribir
                guardar (rutaArchivo,Pantalla);
              end;
            IDNO:
              begin
                CanClose := False;                         // no sobreescribir
                TForm1.Guardar1Click(Sender);        // DA ERROR!!!!!!
              end;
            IDCANCEL:
              begin
                CanClose := False;                        // cancelado
            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.
Responder Con Cita