Después de 2 semanas en las que no he podido dedicarme al tutorial, volvemos no con mucho tiempo, pero entre hoy y mañana espero sacar el módulo de Alquiler y los que este lleva adosados.
Para ello vamos a ver el modulo Uvernotas
Y como su código es pequeño lo subo aquí también
Código Delphi
[-]unit Uvernota;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons;
type
TFvernota = class(TForm)
Panel1: TPanel;
SBSalir: TSpeedButton;
Memo1: TMemo;
procedure SBSalirClick(Sender: TObject);
private
public
end;
var
Fvernota: TFvernota;
implementation
{$R *.dfm}
procedure TFvernota.SBSalirClick(Sender: TObject);
begin
Close;
end;
end.