Joao Maia
-
Total de itens
1 -
Registro em
-
Última visita
Sobre Joao Maia
Joao Maia's Achievements
0
Reputação
-
unit UContas; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons, Vcl.Menus; type TFrmContas = class(TForm) MainMenu1: TMainMenu; procedure Agua1Click(Sender: TObject); { Private declarations } public { Public declarations } end; var FrmContas: TFrmContas; implementation Uses UAgua; {$R *.dfm} { TFrmContas } procedure TFrmContas.Agua1Click(Sender: TObject); begin TfrmAgua.Create(self); FrmAgua.ShowModal; end; end.