Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); var msg:String; begin Msg := 'Las horas reportadas no pueden ser mayor que ' + Edit1.Text; Application.MessageBox(PChar(Msg), 'Información', MB_Ok or MB_ICONWARNING); Abort; end;
procedure TForm1.Button1Click(Sender: TObject); var msg:String; begin Msg := 'Las horas reportadas no pueden ser mayor que ' + Edit1.Text; Application.MessageBox(PChar(Msg), 'Información', MB_Ok or MB_ICONWARNING); Abort; end;